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more icons. An icon's appearance indicates 
whether a particular dose was delivered prop- 
erly, when a grid element is selected by a 
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SYSTEM AND METHOD FOR MANAGING ADMINISTRATION OF MEDICINE 

RELATED APPLICATIONS 

This application claims priority from prior U.S. provisional application serial number 

60/071,107 filed on January 12, 1998, entitled "Method and System for Monitoring Doses," 

5 which is incorporated by reference in its entirety as if fully set forth herein. 

COPYRIGHT NOTICE 

A portion of the disclosure of this patent document contains material that is subject to 
copyright protection. The copyright owner has no objection to the facsimile reproduction in 
paper copies by anyone of the patent document or the patent disclosure, as it appears in the 
10 Patent & Trademark Office patent file or records, but otherwise reserves all other copyright 
rights whatsoever. 

FIELD OF THE INVENTION 

The present invention relates generally to computer systems. The invention relates 
more specifically to managing administration of medicine, monitoring dosages of drugs given 
15 to patients, and the like. 

BACKGROUND OF THE INVENTION 

Monitoring dosages of drugs or medicines for patients requires communication among 
several levels. First, a physician must diagnose and prescribe a dosage for a patient. The 
medication must then be distributed accurately and, finally, the patient or a care provider must 
20 ensure that the dosages are properly administered to or taken by the patient. 

For many reasons, ensuring that accurate dosages are delivered to a patient in a 
consistently timely manner can be difficult despite the importance of accurate administration 
in many instances. 

Therefore, it is desirable to provide a method of automating the delivery of medicine 
25 and monitoring the delivery of medicine. 

Moreover, special challenges are presented in managing patients who are taking more 
than one medication. Elderly patients on multiple medications may have difficulty keeping 
track of whether they have taken all their medications, when, and in what quantity. In the 
clinical setting, proper administration of multiple medications to acutely ill patients is 
30 challenging for care providers. 

Thus there is a need to track multiple medications and multiple dispensing 
mechanisms, and to present data for all such dispensers in a report. 

To facilitate the proper administration of medication and the tracking of when it is 
administered, medication dispensing devices are used. Conventional medication dispensing 
35 devices typically include a medicine container and an alarm mechanism which notifies a 

patient at the time intervals the dose(s) are due. Each time the patient opens the container, the 
device records the event and the time it occurred. One example of a conventional medication 
dispensing device is ajar with lid which incorporates an alarm mechanism and a recording 
mechanism. When the lid is removed, the recording mechanism records this event and the 
40 time it occurred. 
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One drawback to conventional dispensing devices is that they do not control access to 
medicine or the quantities dispensed. Thus, there is little assurance that when a dispensing 
device is opened, the proper amount is dispensed. Another drawback is that once opened, the 
dispensing devices may be re-opened immediately. Thus a confused elderly patient, having 
5 forgotten the dose they just took, may take another far too soon. 

Thus, there is further need for a system that controls dispensing times and amounts and 
which tracks those times and amounts. 

SUMMARY OF THE INVENTION 

The foregoing needs, and other needs and objects that will become apparent from the 

10 following discussion, are fulfilled by the present invention, which comprises, in one aspect, a 
method for managing doses of medication delivered to a patient. Generally, a computer system 
receives dosage data and administration data. The dosage data represents a drug prescription, 
and includes, but is not limited to, one or more times for taking the drug, the quantities in 
which the drug is to be taken by the patient, or a combination thereof. The administration data 

15 represents when and in what quantities each dose in a set of doses of the drug is actually 

delivered to the patient. Based on the dosage and administration data, compliance information 
is generated and displayed. Compliance information indicates the degree to which a drug has 
been delivered in accordance with the dosage data. The compliance information can be 
displayed in variety of forms. 

20 According to another aspect, a calendar in the form of a grid comprised of grid 

elements is displayed. Each grid element represents a period, such as a day in a month, and 
contains one or more icons. An icon's appearance indicates whether a particular dose was 
delivered properly. For example, a green square icon indicates that a dose was delivered on 
time, and a triangular red icon indicates that a dose was not delivered. When a user selects a 

25 grid element, more detail is displayed about the delivery of the drug for the respective day. In 
particular, a graphical object is displayed that contains one or more icons for each dose 
delivered in the day. An icon's position along an axis of the graphical object reflects when a 
dose was delivered. 

According to another aspect, data is generated that specifies what portion of a set of 
30 doses was delivered properly. The data includes values that indicate what portions of the doses 
were delivered, and what proportion of doses were delivered on time. 

According to another aspect, dosage data is transmitted to a dosage-dispensing device. 
The dosage data includes times and quantities to deliver a drug to a patient. In addition, data 
representing a lockout period may be transmitted. The dosage-dispensing device dispenses the 
35 drug to the patient in accordance with the data transmitted to it. 
BRIEF DESCRIPTION OF THE DRAWINGS 

The present invention is illustrated by way of example, and not by way of limitation, in 
the figures of the accompanying drawings and in which like reference numerals refer to 
similar elements and in which: 
40 FIG. 1 is a block diagram illustrating a system for monitoring patient dosages. 
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FIG. 2 is a flow chart illustrating steps for a computer-implemented method for 
monitoring patient dosages. 

FIG. 3 is a flow chart showing steps for retrieving data that is used in a system for 
monitoring the administration of doses to a patient. 
5 FIG. 4 is flow chart showing steps for transmitting dosage information to a dosage- 

dispensing device. 

FIG. 5 A is block diagram depicting a calendar in the form of a grid. 

FIG. 5B is a block diagram depicting a grid element and icons used to indicate patient 
compliance. 

10 FIG. 5C is a block diagram depicting a graphical object used to graphically represent 

when doses were delivered. 

Fig. 6 is a block diagram depicting a histogram showing dosage scores over period of 

time. 

DETAILED DESCRIPTION 

15 OVERVIEW 

One embodiment is a system and method for substantially automating the 
administration of patient dosages, the monitoring of the delivery of doses, whether or not 
timely and whether or not accurate in amount, and the accumulation of data for individual 
patients representing administration data over an extended period of time. 

20 Another embodiment encompasses accumulation of data for each patient from a 

plurality of dosage dispensing devices, and the assimilation of such data into reports which 
may be either specific for the particular patient, or an accumulation of data for an entire range 
of patients. In this way, more accurate dispensing of doses is achieved, as well as more 
accurate monitoring to facilitate detection of whether prescribed doses are being properly 

25 administered to the patients. 

A preferred embodiment provides a computer-implemented method for monitoring 
patient dosages by retrieving administration data, including times and amounts of medication 
prescribed for a patient, retrieving patient data, including times and amounts of medication 
delivered for the patient, determining evaluation data by analyzing the retrieved dosing and 

30 patient data to determine compliance of the delivered medication to the prescribed medication, 
and displaying the evaluation data. 

The method may include one or more of the following features. Patient data, including 
administration data, may be received from an associated device over a communications line, 
from local memory, or from user input. The data may be accumulated to provide a basis for 

35 patient evaluation. The patient data may be transmitted to a dosage-dispensing device, which 
dispenses doses to the patient in accordance with the received patient data. 

The evaluation data may be displayed in a variety of ways, including display in a 
patient administration report that may indicate compliance of the delivered doses to the 
prescribed dosages. In one implementation, the data retrieved may be viewed in a scrollable 

40 tabular grid, with displayed values for all medication events, and dates, times and dose sizes 
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dispensed from the dosage dispensing device. In addition, non-medication events may be 
displayed, including "bottle replaced" or other ancillary but relevant data. 

Additionally, evaluation data may be displayed in the form of a patient summary report 
which may, for example, include all information for a particular patient including name, ID, 
5 monitoring dates, drug, brand, and so on. In addition, a histogram may be prepared 

summarizing the patient's compliance, including calculation of a "compliance index" or 
similar quantification of the patient's overall compliance with the prescribed dosing plan. The 
evaluation data may be displayed for varying periods, such as a week, a month, or a shorter or 
longer period, and may be displayed in graphical form including options for displaying doses 

10 delivered, missed, or delivered but not within compliance parameters. The data may also be 
displayed in calendar form. 

In many instances, patients undergoing treatment may have multiple dosage 
dispensers. In a manner similar to the single dispenser arrangement discussed above, data for 
each such dispenser can be tracked and presented in a merged patient summary report. 

1 5 Likewise, a summary of all patients may be provided which may provide, in either graphical 
or tabular form, any of the selected data including name, ID, compliance index, dosage, time 
of day, or any other field. Histograms may also be developed across the patient class. 

Evaluation data may be provided in any suitable format, such as a data file or hard 
copy. For example, the data may be printed or transmitted to a remote facsimile machine. 

20 According to one embodiment, the delivery of doses of multiple patients is monitored. 

In this embodiment, a preferred method comprises retrieving dosage data, including times and 
amounts of medication prescribed for a plurality of patients, retrieving patient data, including 
times and amounts of medication delivered for the plurality of patients, determining 
evaluation data by analyzing the retrieved dosing and patient data for the plurality of patients 

25 to determine overall compliance of the delivered medication to the prescribed medications, 
and displaying the evaluation data. 

Another embodiment includes a memory device storing computer readable instructions 
for aiding a computer to implement a method for monitoring patient dosages such as that 
described above. 

30 Yet another embodiment provides a system for monitoring patient dosages including a 

computer implementing a method such as that described above. 

MEDICINE ADMINISTRATION MANAGEMENT SYSTEM 
Embodiments of the invention may be implemented on special purpose electronic or 
data processing hardware, software applications running on general purpose hardware, or a 
35 combination of both. For example, an embodiment may be implemented in a dose 

administration system that includes a computer system running one or more application 
programs that provide functions for manipulating dosing and patient data, having access 
through appropriate communications links to remote devices. 

FIG. 1 shows an illustrative system incorporating the present invention, including 
40 personal computer 101 running application software. Computer 101 has access to both dosage 
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data and patient data. For example, as shown in FIG. 1, the computer 101 includes a 
communications link 105 that couples computer 101 to dosage dispensing device 110. The 
dosage dispensing device 110 may be, for example, the portable medication administration 
device described in U.S. Patent Application Serial No. 08/ 867,010 entitled Liquid Medication 
5 Dispenser Apparatus, filed on June 2, 1997 and naming as inventors Debra L. McEnroe, 
Robert A. Britts, Phillippe Pouletty and Ralph Levy, the entire contents of which are hereby 
incorporated by reference as if fully set forth herein. Dosage dispensing device 110 may be 
used to dispense, for example, an analgesic drug, opiate agonist or antagonist drug, or a 
immunosuppressive drug, such azathioprine, Tacrolimus, Sirolimus, mycophenolate, mofetil, 

1 0 and their chemical derivatives,. 

A portable medication administration device is a device which may be transported with 
the patient outside a medical facility such as a hospital or doctor's office, and which delivers 
multiple doses to the patient without immediate supervision by a registered medical clinician. 
Such dispensers are typically used by, for example, physicians and pharmacists, to input 

1 5 dosage data. 

Communications link 105 enables the dosage data to be recorded at locations remote 
from the monitoring system, such as at medical facilities where medications are prescribed. 

In the illustrated monitoring system, the computer 101 retrieves information relating to 
the patient data from data stored on diskette 120 or in a mass storage device, such as the 
20 computer's hard disk drive 122. This data typically includes a record of doses delivered to the 
patient and is typically created by the patient or a caretaker. As with the dosage information, 
this information may be input at remote locations, such as at a patient's home or a location 
where the medication is administered. 

Of course, dosage and patient data may also be provided by alternative methods. For 
25 example, the data may be input directly by a user through the computer keyboard 102. The 
computer 101 can save input and retrieve information by downloading to the diskette 120 or 
hard drive 122, or if appropriate, may initiate to medication dispenser and monitor 109 a 
communications link 107. Communications link 107 may use electrical, electromagnetic, 
optical signals, or other signals that may carry digital data. These signals are exemplary forms 
30 of carrier waves transporting information. 

Application software running on the computer 101 processes the dosage and patient 
data to determine monitoring information for patients. The monitoring information is provided 
to a user in the format of, for example, patient summary reports and graphs 124, event 
calendars 126, and summaries of groups of patients 128. The monitoring information can also 
35 be provided in hard copy via printer 130 or fax 132 through appropriate communication links. 

Computer 110 may transmit data to dosage dispensing device 110 via communications 
link 105. The data may include times and quantities to administer a drug to a patient, and a 
value representing a lockout period. Dosage dispensing device 110 delivers a drug in 
accordance with the received data. 
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In one embodiment, computer 101 is a personal computer having an Intel or AMD- 
type processor and running the Microsoft® Windows 95 or Windows NT operating system, 
and equipped with volatile memory such as RAM and non- volatile memory such as a hard 
disk. A display device such as a CRT also forms part of computer 101 . 
5 MONITORING ADMINISTRATION OF MEDICINE TO A PATIENT 

FIG. 2 is a diagram of a method of monitoring the administration of medicine to a 
patient. In one embodiment, the method of FIG. 2 is implemented in one or more application 
programs that are executed by computer 101 . 

At block 202, a computer such as personal computer 101 of the system of FIG. 1, 
10 begins execution of the application software. As shown in block 210, computer 101 retrieves 
dosage and patient data for a patient from stored data. As indicated by block 212, the steps of 
block 210 may involve retrieving previously stored data files from a mass storage device such 
as disk drive 122. 

Alternatively, computer 101 may establish an appropriate communications link, such 

15 as a modem or ISDN line, to retrieve data from a remote device, such as the portable 

medication administration device illustrated in FIG. 1 and described in the above-referenced 
U.S. Patent Application Serial No. 867,010, filed June 2, 1997 and entitled Liquid Medication 
Dispenser Apparatus, previously incorporated by reference. In this alternative case, as 
indicated in block 214, the dispensing device 1 10 is connected to the computer 101 and 

20 prepared for communication with the computer. 

At block 220, dosage and medicine administration information for a patient is 
reviewed. Specifically, updated patient data is processed by the application software and 
displayed as requested by a user. The application software may be adapted to manipulate the 
dosage and patient information as needed. For example, the software may monitor the 

25 dosages delivered to patients by recording times and amounts of doses taken by a specified 
patient, as indicated by the retrieved patent data. With access also to the dosage information 
for that patient, the software may determine, for example, compliance of a patient's delivered 
doses with the prescribed doses, either for specified dose times or over a period of time. 

Block 220 may involve generating one or more reports, as shown by block 224. For 

30 example, the method may be used to generate calendars showing the dosing events indicating, 
for example, the times of prescribed doses for specific patients and whether the patient 
complied with those doses. The method may also generate summary reports and graphs 
reflecting the progress of treatment for specific patients, incorporating, for example, test 
results. Additionally, the method may generate summary reports for groups of patients, such 

35 as groups of patients taking the same medication or groups of patients of a specific physician. 

The analyzed results may be stored and may be provided to a user. For example, the 
method may display the results on a computer monitor. Alternatively, as indicated in block 
222, the computer 101 may provide hard copies of reports by printing to a printer or 
transmitting the results to a remote facsimile machine. 
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Optionally, as shown by block 230, the data is saved after it is reviewed. As indicated 
by block 232, the data is saved to the mass storage device from which it was retrieved. 
Alternatively, as indicated in block 234, computer 101 may clear the memory of an external 
device from which the data was received and save a new copy of the data, or modify 
5 appropriate parameters of the external device. A pre-defined format is used. For example, data 
read from the device 1 10 may be saved as one or more comma-delimited ASCII files on disk 
122. Use of such a format enables the data to be human-readable, and allows the data to be 
imported into commercial, off-the-shelf application programs such as spreadsheets or word 
processors. 

10 In one embodiment, the data is saved with a validation code that is computed at the 

time the file is saved. Whenever a saved data file is reopened, the code will be used to test and 
guarantee the validity of the data against corruption of the data or intentional modification by 
any means outside of the program. In a preferred embodiment, a relational database system 
such as the Microsoft Access Jet Engine is used for storing and retrieving all data. 

15 At block 240, the operational sequence is complete. 

RETREIVING PATIENT DATA - INCLUDING DOSES AND TIME DELIVERED 
FIG. 3 illustrates an embodiment of a method of retrieving data. FIG. 3 illlustrates 
substeps involved in block 210 of FIG. 2 in greater detail. 

At block 304, the computer system receives a request to read device data. For example, 

20 block 304 may involve receiving a request to read "current patient data" that is stored in the 
dispensing device 1 10. The request may be generated in response to, for example, a user 
selecting a program menu option in a graphical user interface ("GUI"). 

As shown by block 320, the system determines whether dosage or patient data for the 
requested patient already exists and has not been saved since a prior retrieval operation. If 

25 patient data for the requested patient already exists in memory and has not been saved during a 
prior retrieval, then in block 324, the system displays a prompt message to the user. The 
prompt message enables the user to select (1) canceling the request to retrieve patient data 
from the device, or (2) saving the prior data before continuing with the process of retrieving 
current patient data from the dosage-dispensing device. If the user chooses to cancel the 

30 request to retrieve the current patient data, then execution ends. If the user chooses to save the 
already existing data, then control flows to block 328, where the data is saved in a user 
specified file. Block 328 may involve displaying a dialog box or prompt to the user that 
requests the user to enter a file name or pathname. Control then flows to block 330. 

At block 330, the current patient data is retrieved from the dosage-dispensing device 

35 and stored in a temporary buffer. The temporary buffer may be, for example, a temporary disk 
file or a buffer area in memory. At block 334, the data is checked to determine whether any 
transmission or data errors occurred during transmission from the dosage-dispensing device. 
For example, an 8-bit checksum algorithm can be applied to data received from a dispensing 
device 1 10 to detect errors. Such checksums are conventionally included by the dispensing 

40 device 1 1 0 in data that it transmits to computer 1 0 1 . If any errors are detected, then at block 



8 



WO 99/35588 



PCT/US98/22830 



338, a message to the user is displayed, informing the user that errors exist in the data, and 
execution ends. If no transmission errors are detected, then control flows to block 340. 

As indicated by block 340, the disk or other storage device is checked to determine 
whether any prior patient data for the patient has been retrieved and stored. If previous data 
5 has been retrieved from the device, then control flows to block 344. In this case, as shown by 
block 344, data for the patient is updated by merging the current patient data with the prior 
data. The merged data is stored in memory. A message is displayed informing the user that the 
merge has occurred. 

As shown by block 348, the current data is stored. Alternatively, the merged data is 

10 stored, if merged data was created at block 344. The user interface is updated to reflect the 
addition of current patient data. 

At block 360, a device retrieval dialogue is displayed, which is data about the just 
retrieved patient data. Such data can include patient name, the drug(s), prescribed doses per 
day, and the administration times. 

1 5 TRANSMITTING DOSAGE DATA TO DOSAGE DISPENSING DEVICE 

In one embodiment, computer 101 transmits dosage data to dosage dispensing device 
110. The dosage data is used by dosage dispensing device 1 10 to control the dispensing of 
medicine. The dosage data may represent medicine to deliver, administration times, quantities, 
and a lockout period. A lockout period is a period of time that must elapse after dispensing a 

20 dose before another dose may be administered or delivered to the patient. The dosage data 
may specify medicines that include, for example, an analgesic drug, opiate agonist or 
antagonist drug, or a immunosuppressive drug. An example of a dosage dispensing device that 
receives data specifying administration times and quantities and a lock out period, and then 
which operates in accordance to such data, is the portable medication administration device, 

25 described in U.S. Patent Application Serial No. 867,010, filed June 2, 1997 and entitled Liquid 
Medication Dispenser Apparatus, previously incorporated by reference. 

The ability to transmit data to a dosage device that dispenses medicine accordingly 
provides significant advantages. The amounts of medicine that are actually dispensed to the 
patient may be controlled, and premature administration of doses may be prevented. 

30 FIG. 4 is a diagram of a method of collecting dosage data from a user, such as a 

physician or other clinician, and transmitting the dosage data to a dosage dispensing device. 

As shown by block 410, a request is received from a user to enter dosage data. The 
request may be generated in response to a user selecting a program menu option in a GUI. As 
indicated by block 420, current dosage data for the patient is retrieved from stored data. At 

35 block 430, a data entry screen or dialog box is displayed, showing the current dosage data as 
the default data. 

As indicated by block 440, dosage data is received from the user. The dosage data 
includes prescribed administration times and quantities and a lockout period. For example, the 
user enters the following information: 
40 Number of Doses 
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Quantity and Unit 
Times for Each Dose 
Lock-out Period 

As shown by block 450, the dosage data is transmitted to a dosage dispensing device, 
5 such as device 110 shown in FIG. 1. At block 460, the dosage data is stored in a mass storage 
device of a computer system, for example, hard disk 122 of computer 101. 

In an embodiment of the present invention, the application software may be adapted to 
analyze additional data. This may include device monitoring data, such as the time a drug 
bottle was changed, temperature monitoring data, battery status, times data was downloaded 
10 from a dosage dispensing device, data identifying the bottle of the drug, such as data read 

from a bar code. Patient data may include test results measured at specified times to measure 
the effect of the administered dosages, or information on multiple drugs dispensed by a dosage 
dispensing device. Dosage data may include proper dosages of specified medications, as well 
as an indication of possible side effects and information regarding whether the dosage should 
15 be altered should those side effects be detected. In such a case, the application software may 
be adapted to provide an analysis of the effectiveness of the administered dosage. 
EXEMPLARY GENERATION OF COMPLIANCE INFORMATION 
To help determine whether a patient is administering a drug properly, compliance 
information is generated and displayed to a user. The system may display such compliance 
20 information in many forms. For example, the system may display a calendar that indicates 

whether particular doses were delivered properly. As another example, the system may display 
one or more compliance indexes, such as the percent of daily doses delivered or the percent of 
doses delivered on time. The compliance information may be generated by, for example, a 
computer system executing a computer program according to the source code set forth in the 
25 Appendix. 

CALENDAR SHOWING PATIENT COMPLIANCE 

FIG. 5 A is a block diagram depicting a calendar 500. In the preferred embodiment, one 
or more calendars 500 are displayed to graphically convey user compliance information on a 
computer display, or other output device such as a printer. 

30 Calendar 500 of FIG. 5 A comprises a grid 502, which includes one or more grid 

elements 520. Each grid element 520 represents a particular day of the month, and may 
contain one or more icons 521 for each dose due on the particular day. The calendar 500 may 
also include a legend 523 that identifies each icon 521 with a descriptive label. Thus, each 
calendar 500 provides a snapshot display to the user of the dosages due for a particular patient 

3 5 throughout a particular month. 

FIG. 5B shows grid element 520 in greater detail. Grid element 520 of FIG. 5B 
pertains to the second day of a particular month, as indicated by the numeric day value 540. 
Grid element 520 includes one or more icons 521 selected from among a new dosage icon 
522, wrong time icon 524, on-time icon 526, and missed dose icon 528. The particular icons 



10 



WO 99/35588 



PCT/US98/22830 



521 that appear in a particular grid element 520 depend upon the content of the data 
previously entered for the patient by the user. 

New dosage icon 522 is displayed so that it reflects the day the dosage was changed, as 
specified by, for example, dosing data retrieved from a dosage dispensing device 1 10. The 
5 new dose size may be displayed within new dosage icon 522. For example, new dosage icon 

522 may include text showing that the dosage is "250 mg". 

Preferably, wrong time icon 524, and missed dose icon 528 each are displayed with 
different patterns that indicate whether a dose was delivered properly. For example, wrong 
time icon 524 is a square shaped icon that is displayed in a first color, such as brown or tan, 
10 and is displayed for a dose that was delivered at the wrong time. A dose is delivered at the 
wrong time if it was delivered to the patient at a time outside the scheduled administration 
time. 

Similarly, on-time icon 526 may be a green colored icon, and is displayed for a dose 
that was delivered on time. A dose is delivered on time if it was delivered to the patient within 
1 5 the scheduled administration time. 

Missed dose icon 528 is a circular icon displayed, for example, in red, and has a thick 
border. The missed dose icon 528 indicates that a patient failed to take a scheduled dose. 

The colors and shapes of the icons 521 disclosed herein are not required and are not 
important. What is important is that a wrong time dose, on time dose, and missed dose each 
20 are represented by a unique icon or symbol. In addition, another row of icons can be displayed 
in each grid element to indicate the number of doses due, each icon representing a scheduled 
dose for a day. 

In one embodiment, each of the grid elements in grid 520 are graphical user controls. 
A user may cause the computer to display more information about a particular day reflected in 

25 grid 502 by manipulating the day's respective grid element. For example, a user, using mouse 
103 as an input device, moves a mouse cursor of calendar 500 onto the day's respective grid 
element and then clicks the mouse. In response, computer 101 displays a graphical time line 
with icons positioned to reflect when the drug was delivered. 

FIG. 5C depicts an exemplary graphical time line. Time line 550 is a graphical image 

30 having a horizontal length that reflects one 24-hour day. One or more icons 562 each represent 
a dose delivered for a particular day. Each of the icons 562 are displayed along the horizontal 
axis 564 of time line 550 so that their respective positions along the horizontal axis of time 
line 550 reflects when they were delivered. One or more hour labels 566 indicate the time at 
which a dose was delivered. For example, icon 562 represents a dose that was delivered at 

35 approximately 8:00 a.m., as indicated by hour label 568. 

In one embodiment, icons 562 may include icons for missed doses. Such icons may be 
displayed using a different pattern than those used to represent doses delivered on time. In 
addition, icons representing doses delivered at the wrong time can be displayed using a third 
pattern. 
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COMPLIANCE INDEXES 

Compliance information can also be provided in the form of compliance indexes. A 
compliance index is a set of one or more values that reflects the degree to which the actual 
delivery of a drug complies with the prescribed administration. A variety of compliance 
5 indexes may used. 

For example, the compliance indexes may include a dosage-on-time index. The 
dosage-on-time index reflects the percent of doses that were delivered to the patient on time in 
a given period. For example, assume that a drug is prescribed to be administered three times a 
day, at 7:00 a.m., 3:00 p.m., and 1 1 :00 p.m., plus or minus an hour. If for a given day the drug 
10 is in fact delivered twice at 8:00 a.m. and 6:00 p.m., then the dosage-on-time index for the day 
is thirty-three percent (33%). 

A dose-per-day index reflects the percentage of prescribed doses that were at least 
delivered in a given period. In the previous example, the dose-per-index would be sixty-six 
percent (66%) because two out of three doses were delivered in the day. 
15 A unit-per-day-index reflects what portion of the amount of a drug prescribed for a day 

was delivered to the patient. For example, 2000 mg may be prescribed, but 2200 mg may be 
delivered to the patient. Thus, the unit-per-day-index would be 1 10%. 

The user may specify the period covered by a compliance index in a variety of ways. 
For example, a graphical user control list box may provide selectable list box items which 
20 each represent a period for which to generate a compliance index. One list box item specifies 
the last week, another the last two weeks, and another the previous month. In addition, the 
graphical user control text boxes can be configured to accept the beginning and end dates of a 
period. 

Also, various techniques may be used to display compliance indexes to the user. Each 
25 index can be displayed as a numeral, or a graphic, such as a horizontal bar. The length of the 
bar would represent 100 percent, and a position of an indicator along the length would indicate 
a percent. 

One or more compliance indexes may be presented in the form of a weekly dosing 
graph, as shown in FIG. 5C, or in other graph forms, such as a line, area, and histogram graph. 
30 In addition, a GUI may present a graphical user control through which a user may select the 
form of the graph for displaying compliance indexes. For example, a GUI may display a 
graphical user control list box containing list box items for each graph form. By selecting one 
of the list box items, a user specifies a graph form for displaying a compliance index. 

Fig. 6 shows a score histogram graph according to an embodiment of the present 
35 invention. Score histogram graph 600 displays patient dosing scores in the form of a graph of 
"Time Span" versus "Score." The time span is selectable for a time range specified by the 
user. The score value represents a compliance index over, for example, the last 7, 14, 21, or 28 
days, or a time span specified by the user. 

Score histogram graph 600 contains one or more graphical bars, such as graphical bar 
40 610. Each graphical bar is used to reflect a dosage score for a time period within the time span, 
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such as a day. To measure the graphical bars, score histogram graph 600 includes graphical 
score scale 604. The height of the graphical bars together with graphical score scale 604 
indicate a dosage score for a particular time period. Graphical bar 610 reflects a score of 66%. 

OTHER REPORTS 
5 Other reports can be generated based on the foregoing information. 

In particular, a Patient Dosing Report is generated based on data retrieved from the 
dispenser device 110. The data is displayed in a scrollable tabular grid. Displayed values 
include all medication events, dates, times, and dose sizes that are retrieved from the 
dispenser. Other non-medication events that are reported from the dispenser device to the 
10 computer 101 can be displayed at the option of the user. For example, when a user replaces a 
bottle in the dispenser, the dispenser device 1 10 reports a "bottle replaced" event to the 
computer 101 . Such events can appear in the Patient Dosing Report. 

As another example, a Patient Summary Report is generated. The report includes a 
header containing complete patient information such as Name, ID, Monitoring Dates, Drug, 
1 5 Brand, etc. 

A Patient Summary Report, based on the merged data created in block 344 of FIG. 3, 
can be generated. The report summarizes data downloaded from multiple devices for the same 
patient. 

A Summary of All Patients report presents a summary of all patients in grid form. The 
20 grid includes Name, ID, and Score for each patient. The grid may be sorted by any column. 
The Score value may be selected based on Doses Per Day or Time Of Day. 

Preferably, the system provides a Print Preview function whereby the user can view 
any pages on the screen before they are printed. 
PROGRAM STRUCTURE 
25 Embodiments of the methods described further below may be implemented, for 

example, in one or more computer programs developed using Microsoft Visual Basic®. 
Preferably, the programs provide a multi-document interface whereby a user may view 
multiple documents simultaneously within the program. For example, the calendar dialog and 
medication event data dialogs described herein may be viewed at the same time. 
30 In one embodiment, the program functions and method steps described above are 

organized in an application program using one or more pull-down menus, each of which has 
one or more menu options. Table 1 presents a hierarchy of menu options in one embodiment 
of such a program. 

TABLE 1 - MENU OPTIONS 
35 FILE 

New 
Open 
Save ... 
Save As . . . 
40 Print Setup ... 
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Print Preview . . . 
Print . . . 
Exit . . . 
DEVICE 

Retrieve Dispenser Data 
Program Dispenser 

VIEW 

Dosing Data 
Dosing Calendar 
Reports & Graphs . . . 

HELP 

About 

The application program may also provide confirmation dialogs that prompt the user to 
verify various functions, such as dosing, as they are performed and where appropriate. 

In the foregoing specification, the invention has been described with reference to 
specific embodiments thereof. It will, however, be evident that various modifications and 
changes may be made thereto without departing from the broader spirit and scope of the 
invention. The specification and drawings are, accordingly, to be regarded in an illustrative 
rather than a restrictive sense. 
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Attribute VB Name = "modGenerar 
Option Explicit 



'Declare DLL calls 

Declare Function OSWinHelp% Lib "use r32" Alias "WmHelpA" (ByVal hWt,d&, ByVal HelpFileS, ByVal wCommand% dwData As An U . 

Declare Function Write Pn vat eProflle String Lib "kernel Alias "WritePrivateProfileStringA" (ByVal IpApplicationName As Strino fwv/ al 
W IpKeyName As Any, ByVal IpString As Any. ByVal IpFileName As String) As Long canoniMame As Stnng, ByVal 



'Set up some temporary buffers forgetting stnngs from CL : calls 

Public Const giBufSize 1024 = 1024 set size of input buffer for strings 

Public gsTempBuf As String -input buffer torstnngs (defined at program start) 



V, P fl J^ L ^ Mt °P |l0, » T>bS « taeted As «nteg.r 'keep track of trie tab that was las: selected by user (gees oac* to ,t next time it is 

Public gsLastStartDateChosen As String a starting plot date last selected by user 

Public gsLastEndDateChosen As String an encing clot date last selected bv user 

Public gsLastDateSet As String - a nmp STnng used t0 pass aa{$s back and fQtth , the calendar 

Pub be gsDateD.spiay Format As String 'holds the user's choice for the displayed data format for dialogs ana reports 

Pub c gsTimeDisplayFormat As String 'holds the users choice for the displayed time format for dZ%anVrfpons 

Pub £ SSSSt P 3 f en !c aS !^ me AS Strin9 replacement labels tor the dialogs if exist in config file. * P 
Pub c gsCus omLb PatientFirstName As Stnng 'replacement labels for the dialogs if exist m conficfile 
Public gsCustomLblPaUentID As String y 



Public gsCustomLblTxCenter As String 
Public gsCustomLblDrug As String 
Public gsCustomlbl Organ As String 
Public gsLabelGridColumnCustoml As String 
Public gsLabelGridColumnCustom2 As String 
Public gsLabelGridColumnCustom3 As String 



755 value is stored in oevtce & indicates the version of data structure within the device'. 

This does not relate directty to the version of the host software because the host software 
versron can change with meaning that the structure of the data in the device has changed 
This value should be increased when any kind of change occurs to the custom areas of the device 
such as changing the length of strings to accommodate new features. The purpose of this value 
is to let us read it back from a device and determine if newer host software is being used on 
a device programmed with another version. 



Public Const gsREV_DATA_STRUCTURE = "01 " 

'There are 4 fields in the device containing 16 characters each, in the original 
device design, this was intended to contain 4 sepeate pieces of information 
The length of each data type is as follows 

Public Const giLEN_REV DATA STRUCTURE = 2 

Public Const giLEN_PATTENT NAME = 26 

Public Const giLEN ID = 11 

Public Const giLEN~DRUG » 2 

Public Const giLEN~TX CENTER = 18 

Public Const giLEN_ORGAN = 2 



Public Const giMaxDoseTimes = 4 
Public Const giDosesPerDay Default = 2 
Public gbPatientDataNotSaved As Boolean 

Public gdTempDateTime As Double 
Public giTempCya As Integer 
Public gfTempCreaUnine As Single 
Public gsTempCustomlnfo As String 

Public gsActiveFormName As String 



'.77 e max number of presenbed dcsJng time (entry boxes) 

'true once the data in memory has been saved (from device) 
'rgh. put thts varin the form that uses it, can also be done 
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Public giCurrentTip As Integer 'most recent up mtmoer that was shown 

Public gsWebStartlngAddress As String uh address and any associated password for wets sire 

Public Function ComputelniSectionChecksum(ByVal sFileSpec As String, ByVai sSection As Strtna) 

'Read each line m the section name of an INi file that was passed here. 
'Compute a unique vaiue and pass back to caller 
On Error GoTo 0 'rgh temp 

Dim ICheckSumTally As Long, r As Integer, I As Long, i As Integer, iKey As Integer 
Dim sLine As String 

'Get the names of alf of the keys in this section. 

'A null key field in above iine ioacs ail keys in that section 

Dim iStrSize As Integer, sTempBuf As String. iBufSize As Integer 

Dim sKeyList(200O) As String 'make room for this many key names in this section 

sTempBuf = Space$(1 6384) 
iBufSize = 1 6384 

I = GetPrivateProfileString(sSection t ByVal 0&, sTempBuf, iBufSize, sFileSpec) 
r = ParseDeiimString(Left$(sTempBuf, I), ChrS(O), sKeyListf)) pur the key names in a list 
- For iKey = 1 Tor 

sLine = GetlNISettingfsFileSpec, sSection, sKeyList(iKey), -) 
For i = 1 To Len(sLine) 

ICheckSumTally = ICheckSumTally + (Asc(Mid$(sLine, i, 1)) • iKey) 
Next i 
- Next iKey 

ICheckSumTally = ICheckSumTally Mod 53687091 2 'a 29 bit number 
ComputelniSectionChecksum = ICheckSumTally 'pass result back to caller 
End Function 



Public Sub EventDelete(DataStruct As DeviceDataStruct, ByVal iindex As Integer) 

'Remove an event from the data stmcture. The index to the position is 
•passed here. 

Dim i As Integer 

'it is not a vaild index 

If iindex < i Or iindex > DataStrucUEventData(O) Then Exit Sub 




For I = Iindex To Data Struct A Eve ntData(O) 'move all events up one 

DataStnjctbyteEventType(i) = DataStruct.byteEventType(i + 1 ) 
DataStruct.dEventDate(i) = DataStruct.dEventDatefl ♦ 1) 
DataStructJEventData(i) = DataStruct.iEventData(i + 1) 



DataStructJEventData(O) = DataStruct.iEventData(O) - 1 'decrement event count 
gbPatientDataNotSaved = True set flag to indicate that the file has changed but not yet been saved 

End Sub 
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Public Sub Eventlnsert(DataStruct As DeviceDataStruct, ByVal ilndex As Integer, ByVal dDate As Double) 

'Insert a new event into the data structure at the index location passed here, ff the index -0 ' 
'then it probably indicates that a previous function could not find where to insert the date 
'in the structure. In this case, the event must be inserted at the beginning or the end of the 
'structure depending on the date. 



Dim i As Integer 



E 



If ilndex = 0 Then 'cate was not found 
If dDate <= DataStnjct.dEventDate(l) Then 

ilndex = 1 
Else 

ilndex = DataStruct.iEventData(O) insert at last point 
End If 
End If 



. If ilndex Then there are events in the structure 

I For * = DataStnjct.iEventData(O) To ilndex Step -1 'move all events down to ma;<s room for new one 

DataStnjct.byteEventTypefl + 1) ■ Data Struct.byte Eve ntType(i) 
DataStruct.dEventDate(i + 1 ) = DataStruct.dEventDate(i) 
DataStnjct.iEventData(i + 1) ■ D a ta Struct, i Event Data (i) 
DataStnjct.sUserOata1(i + 1) = DataStruct.sUserDatal(i) 
DataStaict.sUserData2(i + 1) * DataStruct.sUserData2(i) 
DataStruct.sUserData3(i ♦ 1) a DataStnjct.sUserData3(i) 

I Next I 

Else 

ilndex = ilndex + 1 
I End If 



'Now insert the new event 

DataStruct.iEventData(O) = DataStruct.iEventData(O) + 1 'increment event count 
DataStnictbyteEventType(ilndex) = giEVENT USER DEFINED 
DataStructdEventDate(ilndex) ■ dDate 

DataStructsUserDatal Olndex) = giTempCya 'put change in structure 

DataStruct.sUserData2(ilndex) ■ gfTempCreatinine 'put change in structure 

DataStruct.sUserData3(ilndex) ■ gsTemp Custom Info 'put change in structure 

Elf ilndex = 1 Then 'there were no previous events until this one 
DataStruct.iEventData(i Index) ■ 0 
E °^| aStruct * IEventData({lndex ) = DataStructJEventDatafllndex - 1) 

gbPatientDataNotSaved = Tnje set fiag to indicate that the file has changed but not yet been saved 
End Sub 



Public Function FindPrescibedDoseSizeForSpecificDay(DataStruct As DeviceDataStruct, ByVal IDate As Long) 

'Find the prescribed dose for the day that is passed here. 

'This is accompiished by looking for the most recent dose change 

'event that occurred on or pnor to this date. 

Dim I As Integer, ilndex As Integer 

ilndex « FindClosestDatelnArray(DataStnjct, IDate) 

If ilndex = 0 Then 'ail events are occumng after the date requested 

I For i = 1 To DataStnjct.iEventData(O) 'look throuch whoie array if necessary 

Clf DataStruct.byteEventType(i) = giEVENT_DOSEjCHANGED Then 
FindPrescibedDoseSizeForSpecificDay = i 'DataStruct.iEventDatau) 
Exit For 
End If 
I Next i 



Else 'an event date was found 
. For i ■ ilndex To 1 Step -1 

If DataStruct.byteEventType(i) = 



giEVENT_DOSE_CHANGED Then 
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L_ 



Ex"t d For SCibedD ° SeSiZeFOrSpeCifiCDay 3 ' 'OataStmcuEventDatad) 
End If 



— Next i 

- End If 

End Function 



Public Function Ca!cDayDoseScore_OnTime(DataStruct As DeviceDataStruct, ByVal IStartinaDat* a. , 

'Computer the dosing score for the day passed here ' loianingDate As Long) As 



^ w — — — / i.ever 

/ /ws score fesfs ro see ff tte tfcsen faAsn was vwrftm r/ 7 e ere serosa time range. 
Pass the score back to the caller as nearest whole percent 
'nndex is the index in the array where comcutauon is to sot 
'It Should already be set to the first event that occurred on that day. 

Dim I As Long, i As Integer, iTotalDoses As Integer 
Dim ilndex As Integer, r As Integer 

IJSf 3 fi ndC,osestDateln Array(DataStruct, IStartingDate) returns 0 if date is not found 

I ir nndex Then an event was found 

I Do ' IO °* at ail past events for the past iSccreDays 

If lnt(DataStruct.dEventDate(ilndex)) = IStartingDate Then 

date still in range, ok to continue 

If DataStnjctbyteEventType(ilndex) = giEVENT_DOSE_TAKEN Then 'this is a medication 

Now test to see if time is within the daily presented range 

\?r ^ Dose r ^ t ^ nPrescnbedTi ^eRange(DataStnjct t ilndex) 'pass index to event time 
If r Then ITotalDoses = iTotalDoses ♦ 1 

End If 

ilndex ■ ilndex + 1 

Else 

Exit Do 

End If 

Loop 

CalcDayDoseScore_OnTime » 100 • iTotalDoses / Data StrucUDosesPerDay 
- End If 

End Function 



"SZ!Z22£^ AS DeviceDataStruct, ByVa. .Starting As Long, A 

Ca/cu/afe for ail doses taken on that day regardless of if they were taken on time or not. 

Pass the score back to the caller as nearest whole percent 

i ndex is the index in the array where computation is to start. 

It should already be set to the first event that occurred on that day. 

Dim iTotalDoses As Integer, ilndex As Integer 

ilndex = FindClosestDateJnArray(DataStruct, IStartingDate) 

— If ilndex Then 'an event was found on this date 

— Do look at ail dosing events for this day 

— If lnt(DataStruct.dEventDate(ilndex)) = IStartingDate Then 
date still in range, ok to consnue 
'thts is a medication 

" Hn!ta^?nde*x ^* n ^W e ^' ndex ) - gi EVENTED OSE_TAKEN Then iTotalDoses = iTotalDoses + 1 



Else 

Exit Do 
End If 
- Loop 

CalcDayDoseScore_AIIDoses = 100 • iTotalDoses / (DataStruct.iDosesPerDay) 
End If 
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End Function 



Public Function CalcDosesSumTakenOnSpecificDay(DataStruct As DeviceDataStruct, ByVal IStartinaData a , 

'Computer the dosing total number of doses taken on a scecihc date yudie As 1 



'Nets, tins calculation does not take into consideration whether or not the dose 
'was taken within the presenbed r.me This is ail doses for a particular dav 
'Pass the count back to the caller. 



Dim iTodayDoseCount As integer, ilndex As Integer 

ilndex ■ FindFirstMatchingDatelnArray(DataStaict, IStartingDate) 

I If ilndex Then 'an event was found on tms date 

. Do Vook at all dosing events for this dav 

. if lnt(DataStruct.dEventDate(ilndex)) = IStartingDate Then 

'date still in range, ok to conunue 
'this is a medication 

If DataStruct.byteEventType(ilndex) = gi EVENT DOSE_TAKEN Then iTodayDoseCount = iTodayDoseCount ♦ 1 
ilndex = ilndex + 1 "goro next higher event m array 
'exit if at end of array (pre vents error) 

If U8ound(DataStruct.dEventDate()) = iindex Then Exit Do 
'e*/f if no data in array 

If ilndex > lnt(DataStruct.iEventData(0)) Then Exit Do 

Else 

Exit Do 

I End If 

Loop 



CalcDosesSumTakenOnSpecificDay = iTodayDoseCount 
I End If 

End Function 



Public Sub EraseData!nMemory(DataStruct As DeviceDataStruct) 
Dim i As Integer 

'clear out any data that may be in memorv and initialize the arravs 

DataStruct.sPatientLastName = - 

DataStruct.sPatientFirstName = 

DataStruct.sPatientJD = 

Data Struct.s Drug = ~ 

DataStruct.sOrgan = ~ 

DataStruct.sTxCenter » "" 

DataStructsSerialNumber = 

DataStructsFirmwareVer = "" 

Data Struct.sDose Size = "" 

DataStruct.sPatientDataFileName ■ 

I For i « 0 To giMaxDoseTimes 

DataStnjct.dPrescribedDoseTime(i) = -1 
I Next! 

OataStruct.iDosesPerDay = 0 
Data StructsDoseRe solution « - 
DataStruct.sMedRemaining = ~ 

Erase DataStruct.sScoreData 
Erase DataStruct.iEventData 
Erase Da taStruct.d Event Date 

Erase DataStruct.byteEventType 'erases all elements of a fixed array 

Erase Data Struct. sUserDatal 
Erase DataStruct.sUserData2 
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Erase DataStruct.sUser0ata3 

DataStruct.lDevicelnitDate * 0 
DataStruct.sBatteryChangeTimer = ~ 
DataStruct.sDoseLockoutHours = "* 

DataStruct.bErrorFatal = False 
Data Struct. bErrorN on Fatal = False 
DataStruct.bErrorOoseSize = False 
DataStruct.bErrorMedRemaining = False 
Data Struct.bErrorMemory Full = False 
DataStruct.bErrorsExist = False 
DataStruct.bErrorBrownOut * False 
OataStruct.dLastDowntoadDate = 0 

gbPatientOataNotSaved = False 

End Sub 



Public Sub Create TxtSummaryFileO 

Thts routine creates a temp text file in the 'fax' subdirectory 
'This wiii ailow the information to be faxed as a text document. 

Dim I As Integer, r As Integer, sFileSpec As String, lErrorCode As Long 

Dim slolName As String, sLbllD As String, sLblTxCenter As String, sLblDrug As String, sLblOrgan As String 

'Get rid of the previous temporary file. 
'sFileSpec = App.Path + 'VaxesUemp.txf 

sFileSpec * App.Path + "Vaxes\" + P AT_ D ATA. sPatient Last Name + ", - + PAT DATA.sPatientFtrstName + - - + PAT DATA, s Patient ID + " 
V txt" 

r » FileExists(sFileSpec, lErrorCode) 
if r Then Kill sFileSpec 

sLblName ■ gsCustomLbiPaUentLastName 
sLbllD « gsCustomLblPatientlD 
sLblTxCenter ■ gsCustomLblTxCenter 
sLblDrug = gsCustomLblOrug 
sLblOrgan = gsCustomLblOrgan 

Open sFileSpec For Output Shared As #1 

Print #1 , sLblName + " + PAT_DATA.sPatientLastName + " " + PAT_DATA.sPatientFirstName 

Print #1 , sLbllD ♦ • + PAT DATA.sPatientID 

Print #1 , sLblTxCenter ♦ *: • + PAT_DATA.sTxCenter 

Print #1, sLblDrug + ■ + PAT DATA.sOrug 

Print #1 , sLblOrgan ♦ ": " «■ PAT DATA.sOrgan 

Print #1, 

Print #1 , "Device Serial Number " + PAT D ATA. sSe rial Number 
Print #1 , -Firmware Version: ■ ♦ PAT_DATA.sFirmwareVer 

Print #1, "Last Download Date: " + Format$(PAT DATA.dLastDownloadDate, gsDate Display Format) 
Close #1 

'rgh ensure that the complete file is printed 
End Sub 
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Function FtleExists(ByVal sPath As String, lErrorCode As Long) As Integer 



Check tor existence of a file by attempting an OPEN. 
Return true (-1) it exists eise return False (0) or error condition 
Note that since this function tnes to open a file, an error could 
return to caller if Hie ts there but in use by another application . 



Dim X As Integer 

X = FreeFile 
On Error Resume Next 
Open sPath For Input As X 
Close X 
_ If Err = 0 Then 

FileExists = True 

lErrorCode « 0 'dear error code 

_ Else 

FileExists = False set flag for error 
lErrorCode ■ Err 'pass error back to caller 
_ End If 

End Function 



Public Function GetINISetting(sFiIeSpec As String, sSection As String, sKeyField As String, sDefault As String 

Dim IStrStze As Integer, sTempBuf As String, iBufSize As Integer 
sTempBuf » Space$(1024) 
iBufSize* 1024 

IStrSize ■ GetPrivateProfjleString(sSection, sKeyField, sDefault, sTempBuf, IBufSize, sFileSpec) 




GetlNISetting * Trim$(Lert$(sTempBuf, IStrSize)) 
Else 

GetlNISetting = sDefault 
End If 



End Function 



Public Function GetPatientDataFromDisk(ByVal sFileSpec As String, DataStruct As DeviceDataStruct, lErrorRe 

Get all of the patient data from the tile on disk and place into memory. 
'The filename that is passed here must be a valid patient file and verified 
'by the calling procedure. 

Dim sSection As String, I As Integer, sTemp As String, r As Integer 
Dim IFileChecksum As Long, ICheckSumTaliy As Long 

On Error GoTo GetPatientDataFromDisk_Error 

'Read the file and calculate the checksum. 

IFileChecksum ■ ComputetniSectionChecksum(sFileSpec, "Device Data") 
ICheckSumTaliy = GetlNISetting(sFHeSpec. "General", "Device Data Validation", 0) 
If IFileChecksum <> ICheckSumTaliy Then 
lErrorRetum = ERR_DATA_CHECKSUM 
Exit Function 
End If 

IFileChecksum = ComputelniSectionChecksum(sFileSpec, "Event Data") 
ICheckSumTaliy = GetlNlSetting(sFileSpec. "General", "Event Data Validation", 0) 
If IFileChecksum <> ICheckSumTaliy Then 
lErrorRetum = ERR_DATA_CHECKSUM 
Exit Function 
End If 
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(Z 



r 



IFileChecksum • ComputelniSectlonChecksum(sFtleSpec, "Device Error Flags") 
ICheckSumTally = GetlNISetting(sFileSpec, "General", "Device Error Flags Validation", 0) 
If IFileChecksum <> ICheckSumTally Then 
lErrorReturn = ERR_DATA_CHECKSUM 
Exit Function 
End If 

sSection = "Device Error Flags" 

DataStructbErrorFatal = CBool(Get!NISetting(sFileSpec. sSection. "Fatal", False)) 
DataStruct.bErrorNonFatal = CBool(GetlNISetting(sFileSpec, sSection, "Non Fatal", False)) 
DataStruct.bErrorDoseSize = C8ool(GetlNISetting(sFileSpec, sSection, "Dose Size". False)) 
Data Struct.bErrorMed Remaining = CBool(GetlNISetting(sFHeSpec. sSection, "Med Remaining". False)) 
Data Struct.bErrorMemory Full = CBool(GetlNISetting(sFiieSpec, sSection, "Memory Full", False)) 
DataStruct.bErrorBrownOut = C8ool(GetINISetting(sFileSpec, sSection, "Brownout", False)) 

sSection = "Device Data" 
Erase DataJnMemory DataStruct 

sTemp = GetlNISetting(sFiieSpec, sSection, "Device Init Date", 0) 
If IsDate(sTemp) Then 

DataStruct.lDevicelnitDate = DateValue(sTemp) 
End If w 

sTemp = GetlNISetting(sFileSpec t sSection, "Events Ref Date Time", 0) 
If IsDate(sTemp) Then 

E ^| aStruct,dDeviceRefDateTime 3 DateValue(sTemp) 

sTemp = GetlNISettingfsFileSpec, sSection, "Last Download Date", "0") 
If IsDate(sTemp) Then 

DataStruct.dLastDownloadDate ■ DateValue(sTemp) 
End If 

DataStructsPatientLastName » GetlNJSetting(sFileSpec, sSection, "Last Name". ~) 
DataStruct.sPatientFirstName = Get!NISetting(sFileSpec, sSection, "First Name", "") 
DataStruct.sPatlentID = GetlN!Setting(sFileSpec, sSection, "Patient ID", "") 
DataStructsTxCenter = GetlNISetting(sFileSpec, sSection, "Tx Center", -) 
i * Clnt(GetlNISetting(sFileSpec, sSection, "Organ Reference Number, "0")) 
If i And I <= UBound(gsOrganNames) Then DataStructsOrgan = gsOrganNames(0 
i = Clnt(GetlNISetting(sFileSpec, sSection. "Drug Reference Number, "0")) 
If i And i <= UBound(gs Drug Names) Then DataStruct.sDrug = gsDrugNames(i) 
DataStruct.sSerialNumber = GetlNlSetting(sFileSpec, sSection, "Serial Number, ~) 
DataStructsFirmwareVer = GetlNISettingfsFileSpec, sSection, "Firmware Version", ~) 
DataStructsDoseSlze = Get! NISetting(sFile Spec, sSection, "Dose Size", ~) 
DataStruct.iDosesPerDay = Clnt(GetlNISetting(sFileSpec, sSection, "Doses Per Day", "0")) 
DataStruct.sDoseResolution = GetINISetting(sFileSpec, sSection, "Dose Resolution". "") 
DataStruct.sMedRemaining s GetlNISetting(sFileSpec, sSection, "Medication Remaining", ") 
DataStruct.sBatteryChangeTimer = GetlNISetting(sFileSpec, sSection, "Battery Change Timer, "") 
DataStruct.sDoseLockoutHours = GetlNISetting(sFileSpec, sSection, "Lockout Hours Between Doses", ~) 

Fori = 1 To 14 

N ^OataStruct.sScoreData(l) = GetlNISetting(sFiIeSpec, sSection, "Patient Score Data " + CStr(l), "") 

For i = 1 To giMaxDoseTimes 

sTemp = GetlNISetting(sFileSpec, sSection, "Prescribed Dose Time " + CStr(i), "-1") 

DataStruct.dPrescribedDoseTime(i) * -1 ' default vatue 
^ IMsDate(sTemp) Then DataStruct.dPrescribedDoseTlme(i) = CDate(sTemp) 

DataStructJEventData(O) = Clnt(GetlNISetting(sFileSpec, "Event Data". "Event Count", "0")) 

Dim sTempUst(1 0) As String 

For i ■ 1 To OataStruct.iEventData(O) 
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sTemp = GetlNISetting(sFileSpec, "Event Data" CStr(i) 1 
r » ParseDellmString(sTemp, ".", sTempUstn) 
DataStruct.dEventDate(i) = CDate(sTempList(1)) 

- Select Case TrimS(LCase$(sTempUst(2))) 

- Case M dose taken" 

DataStruct.byteEventType(i) = giEVENT DOSE TAKEN 
DataStruct.iEventData(i) = sTempList(3)~ 

- Case "dose change" 

OataStnjct.byteEventType(i) = giEVENT DOSE CHANGED 
Data Struct.i Event Data (i) = sTempList(3)"" 

- Case "custom event" 

Data Struct.byte Eve ntType(i) » giEVENT USER DEFINED 
DataStnjct.iEventData(i) = sTempUst(3)"" 

- End Select 

Data Struct.sUserData = sTempUst(4) 
DataStruct.sUserData2(i) = sTempList(5) 
DataStruct.sUserData3(i) = sTempList(6) 
Next! 



bErrorFatai As 3oolean 'true it this nag was set in the returned nags stnng 
barrorNonFataf As Boolean 'true if this flag was set in the returned flags stnng 
bErrorDoseSize As Boolean 'true it this Hag was set in the returned Hags stnng 
b&rorMedRemaming As Boolean 'true if this flag was set in the returned flags string 
MzrmrMemoryFuif As Boolean 'true if this flag was set in the returned (tags string 
bErrvrBrownOut As 3ooiean 'true if this flag was set in the returned flags string 
» Q 5 12?T X !?' As 3oolean V byte) Bits are set if various errors have occurred and have not 
GetPatientDataFromDisk = True 'return success flag to caller 

GetPat!entDataFromDisk_Exit: 
Exit Function 

GetPatientDataFromDisk_Erron 
lErrorRetum = En- 
Resume GetPatientDataFromDisk_Exit 

End Function 



Public Sub GetProgramPreferencesf) 

load the program and user preferences into the global variables 
Dim iStrSIze As Integer, I As Integer, sFileSpec As String, r As Integer 
Dim sSection As String 
sSection = "Preferences" 

gsDateDisplayFormat * GetINISetting(gsApplniF»!eSpec f sSection, "Date Display Format", "Short Date") 
gsTimeDisplayFormat = GetlNISetting(gsApplniFileSpec, sSection, Time Display Format", "Short Time") 
gsngComplianceT.meRange = CSng(Get!NISetting(gsApplniFiieSpec t sSection, "Compliance Time Range", "2")) 

sSection = "Custom Settings" 

•Get any custom fiefd labels that may be in the INI file. If none exist the set some defaults here. 
gscustomLblPatientLastName = GetlNISetting(gsApplniFileSpec, sSection, "Last Name Label", -) 
If gsCustomLblPatientLastName = ""Then gscustomLblPatientLastName = "Last Name" 

FSS^Sm e " tF ^ tName s GetlNISetting(gsApplniFiieSpec, sSection, "First Name Label", -) 
If gsCustomLblPatientFirstName = ~ Then gsCustomLblPatientFirstName = "First Name" 

gsCustomLblPatientlD = GetlNISetting(gsApplniFileSpec, sSection, "Patient ID Label", ~) 
If gsCustomLblPatientlD = - Then gsCustomLblPatientlD = "Patient ID" 

gsCustomLblTxCenter = GetINISetting(gsApplniFileSpec, sSection, "TX Center Label", -) 
ir gsCustomLblTxCenter = - Then gsCustomLblTxCenter = "TX Center 

gsCustomLblDrug = GetlNISetting(gsApplniFileSpec, sSection, "Drug Label" ~) 
If gsCustomLblDrug = - Then gsCustomLblDrug = "Drug" 
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gsCustomLblOrgan » GetlNlSetting(gsApplniFileSpec, sSection, "Organ label", -) 
If gsCustomLblOrgan = "" Then gsCustomLblOrgan = "Organ" 

gsLabelGridColumnCustoml = GetlNISetting(gsApplniFiIeSpec. sSection, "Grid Column 1", "") 
If gsLabelGridColumnCustoml = "" Then gsLabelGridColumnCustoml = "CYA Level <ng/ml) M 

gsLabelGridColumnCustom2 = GetlNISetting(gsApplniRleSpec, sSection, "Grid Column 2", "**) 
If gsLabelGridColumnCustom2 = "" Then gsLabelGridColumnCustom2 = "Creatinine (mg/dl)" 

gsLabelGridColumnCustom3 * GetlNISetting(gsApplniFileSpec, sSection, "Grid Column 3", ""J 
If gsLabelGridColumnCustom3 = - Then gsLabelGridColumnCustom3 = "Custom" 

'Gef the lis: of most recently used files to the menu 
For i = 1 To frmMain.mnuFileMRU.UBound 

frmMain.mnuFileMRU(i).Tag * GetlNISetting(gsApplniFileSpec, "Recent Files", CStr(l), ~) 

- If frmMain.mnuFiieMRU(i).Tag <> Then 

frmMain.mnu File MR U(i). Visible ■ True 

'stnp the filespec away from the tag ana put into the caps on for display purposes 

r = GetFileNameFromSpec(frmMain.mnuFileMRU(i).Tag, sFileSpec) ' 'hota the name of the file 

frmMarn.mnuFiieMRU(i).Captton = sFileSpec 

frmMain.mnu File Ban3. Visible « True 

- End If 
Nexti 

•Gef last values for the Fax control that was last set by user 
sSection = "User Selections" 
With FAX.DATA 

.sSenderName = GetINISetting(gsFaxFileSpec, sSection, "Sender Name", "") 
.sSenderCompany ■ GetlNISetting(gsFaxFileSpec, sSection, "Sender Company", "") 
.sSenderVoiceNumber = GetINlSetting(gsFaxFileSpec, sSection, "Sender Voice Number", "") 
.sSenderFaxNumber = GetlNlSetting(gsFaxFileSpec, sSection, "Sender Fax Number, "") 
.sFaxlD = GetlNISetting(gsFaxFlleSpec, sSection, "Fax ID", "") 
.sOialPrefoc » GetlNISetting(gsFaxFileSpec, sSection, "Dial Prefix", "") 
.iRetries = Clnt(GetlNISetting(gsFaxFileSpec, sSection, "Retries", "0")) 
.iRetrylnterval = C!nt(GetlNlSetting(gsFaxFileSpec, sSection, "Retry Interval", "1")) 
.bFaxResolution = GetlNISetting(gsFaxFileSpec, sSection, "Resolution", "0") 
End With 

'Get the Drug types from file and place in global list 



sSection ■ Transplant Centers' 
TxCenters(O) = GeifNlSetfng(gsAppintFileSpec, sSection. 'Counr. m 0 m ) 
Fori =7 To TxCenters(C) 

TxCentersu) = GetlNlSetHngfgsApplniFileSpec, sSection, CStr(i). m 0") 
Nexti 



n. 



'Gef the Drug types from file and place in global list 
sSection = "Drugs" 

gsDrugNames(O) = GetINfSetting(gsApplniFileSpec, sSection, "Count", "0") 
For i * 1 To gsDrugNames(O) 

gsDrugNames(i) = GetINISetting(gsApplniFileSpec, sSection, CStr(i), "O") 
Nexti 

'Get the Drug types from fiie and oface m global list 
sSection = "Organs" 

gsOrganNames(O) = GetlNISetting(gsApplniFileSpec. sSection, "Count", "0") 
For i a 1 To gsOrganNames(O) 

gsOrganNames(i) = GetlNtSetting(gsApplniFileSpec, sSection, CStr(i), "0") 
Nexti 

giCurrentTip = Cint(GetlNISetting(gsApplntFileSpec, "Options", "Current Tip", 1)) 
'Get settings of calendar form 

CAL_DEFAULTS.chkDosesMissed = CByte(GetlNISetting(gsAppiniFi!eSpec, "Calendar Settings", "chkDosesMissed", 1)) 
CALJDEFAULTS.chkDosesNotComplied = CByte(GetlNlSetting(gsApplniFileSpec, "Calendar Settings", "chkDosesNotComplied", 1)) 



<*1 
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CAL^DEFAULTS.chkOosesTaken » CByte(GetlNtSetting(gsApplniFileSpec, "Calendar Settings", "chkDosesTaken", 0)) 
CAL_DEFAULTS.chkOoseChanged - CByte(GetlNISetting(gsApplniFileSpec. "Calendar Settings", "chkDoseChanged", 1)) 

Get Settings of Patient summary form 
PAT_SUM_DEFAULTS.cmboDataToView = CByte(GetlNISetting(gsApplniFileSpec, "Patient Summary Settings", "cmboDataToView", 1 

PAT_SUM_DEFAULTS.cmboChartType * C8yte(GetlNlSetting(gsAppiniFileSpec, "Patient Summary Settings", "cmboChartType", 1)) 

"Gsf fne web address for the browser 
gsWebStartingAddress = "http://" 

gsWebStartingAddress = gsWebStartingAddress + GetlNISetting(gsAppfniFileSpec, "Web Data", "User Name", "") + ": w 
gsWebStartingAddress = gsWebStartingAddress + GetlNISetting(gsApplniFileSpec, "Web Data", "Access", "") + 
gsWebStartingAddress = gsWebStartingAddress + GetINlSetting(gsApplniFileSpec, "Web Data", "URL", ~) 

End Sub 




Sub Main() 

Dim I As Long, r As Integer, i As Integer, sMSG As String, sTemp As String, dTime As Double 
Dim bBrowserFound As Boolean, ILastAccessDate As Long, INextReminderDate As Long 

'Initialize some application settings 
gsApplniFileSpec = App.Path ♦ T* + "CycloTech.ini" 
gsFaxFileSpec = App.Path + "\Fax.ini" 
gsTempBuf = Space$(1024) 

gbCommOK * 99 'sat to some value other than true or false to properly initialize the dialog 

frmSplash.Show 
frmSplash.Refresh 

dTime » Now 'get the time value of now 

Wait 0.75 

frmLogin.Show vbModal 

If Not frmLogin.OK Then End -Login Failed so exit app 
Unload frmLogin 
Do Events 



'rgh note that the debug flag is turned on and the fax icon is hidden 
I = SheitfApp.Path ♦ '\Faxman32.exe /D /H". 1) 'start the fax server 
I = SheIirFaxman32.exe /H", 1 ) 'start the fax server 
Load frmMain 

Set gcFax = frmMain.FaxManl 

'If browser feature is turned on in the ini file, then activate item on the menu. 

'See it we should allow access to visit Sangstat on the Internet 

r = CBool(GetlNISettlng(gsApplnlFileSpec, "Web Data", "Active", "False")) 

If r * False Then frmMain.mnuAccessWebSite. Visible = False 'no key found in ini file 



CommJnitiaiizeCommPort 'initialize the comm port from INI file settings 
GetProgramPreferences 
EraseDatalnMemory PA T_ DATA 
EraseDatalnMemory TEMP_DATA 

'Set some menu items 
frmMain.rnnuFileSave. Enabled = False 
frmSplash.ZOrder 

□ Do 
If CDbl(Now) > dTime + 0.00005 Then Exit Do \vatt for a minimum amount of time before unloading splash screen 
Do Events 
Loop 
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frmMain.Show 
SetPrintericon False, 
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'See it we should shown tips at startup 

r = CBool(GetlNISetting(gsApplniFileSpec, "Options". "Show Tips at Startup", True)) 
If rThen frmTip.Show 

'See it we should remind user to visit Sangstat on the Internet 

If frmMain.mnuAccessWebSite.Visible = frue Then user must have menu sefect:on on to accsss web 
Try to find a browser by looking in different tcca"ons in the registry 
frmMain.Mhlni1.Key = ClassesRoot 

frmMain.Mhlnil.EntrySection = "HTTP\shell\open\Command" 
frmMain.MhlnM .Entry Item = - ' ffe rs the default value 

frmMain.Mhlnil .Action ■ 1 3 -get registry key 

If Len(Trim(frmMain.Mhlni1. Entry Value)) > 0 Then 

bBrowserFound = True 'Looks like a value ts there 
End If 

frmMain.Mhlnil. Key « LocalMachine 

frmMain.Mhlnil .EntrySection = "\S OFTWARE\C lass es\HTTP\s hell \open\co m ma nd" 
frmMain.Mhlnil .Entryltem ■ ' ge{s (ne default value 

frmMain.Mhlnil .Action = 13 'get registry key 

If Len(Trim(frmMain.Mhlni1. Entry Value)) > 0 Then 

bBrowserFound = True 'Looks like a value ts there 
End If 



If bBrowserFound Then 
ILastAccessOate = 0 

sTemp = GetlNISetting(gsApplniFileSpec, "Web Data", "Last Web Visit Date", 
If IsDate(sTemp) Then ILastAccessDate = DateValue(sTemp) 

INextReminderOate ■ 0 

sTemp = GetINISetting(gsApplniFileSpec, 'Web Data", "Next Web Visit Reminder Date", -) 
IflsDate(sTemp) Then INextReminderOate = DateValue(sTemp) 

'On this fine, if L is negative then it indicates that the user chose to not connect 
'the last time he/she was reminded, in this case we wait a much 
'shorter period of time before reminding them again 

If DateVaJue(Now) INextReminderDate Then 'it's been too iong since the userwas last on the web. 

If ILastAccessDate > 0 Then 

sMSG = "You last connected to our internet web site on " ♦ sTemp + ". " 
Else 

sMSG = "You have not yet connected to our internet web site. " 
End If 



sMSG = sMSG * There may be a program update or other valuable information there." 

sMSG = sMSG + vbCrLf ♦ vbCrLf + "Would you like to connect to the web site now? (you must already have web access available 
Beep 

r = MsgBox(sMSG, vbQuestion + vbYesNo ♦ vbDefauftButton2, "Internet Connection Reminder) 
regardless of the ansiver to the next question, set a minimum time to ask user again. 
'If user actually connects to internet, then this time is overwntten with a ionger one by the browser 
SavelNISetting gsApplniFileSpec, "Web Data", "Next Web Visit Reminder Date", Format$(Now + 15, "Medium Date") 

Clf r * vbYes Then 
Call LogonTo WebSite 
End If 

— End If 

— End If 
. End If 



End Sub 
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Public Sub LogonToWebSite() 

Visit Sangstat on the Internet 
'Dim frmB As New trmSrowser 
'Load frmBrowser 

frmBrowser.StartingAddress = gsWebStartingAddress 
Do Events 'allow time to paint 
Do Events 'allow time to paint 
frmBrowser.Refresh 
frmBrowser.Show 
End Sub 



Public Function OpenPatientData(ByVal sFileSpec As String) As Integer 

'Cpen pauent data file and load to memory 

•Return a true if load was successful, false if not. and vbCancsl if user cancelled 

Dim r As Integer, sTemp As String, lErrorCode As Long 
On Error GoTo OpenPatientData_Error 

r « Validate Pa tientData Saved 'make sure any device data has first Deen saved 
If r = vbCancel Then Exit Function 

'Get a filename from the common dialog 

'Setup the common dialog control prior to showing it 

With frmMain.dlgCommonDialog 

.Flags = cdlOFNOverwritePrompt Or cdiOFNPathMustExist Or cdlOFNExplorer Or cdlOFNExtensionDlfferent Or 
W cdlOFNNoReadOnlyRetum Or cdlOFNHideReadOnly Or cdlOFNFileMustExist 

.CanceiError « True generate error if CANCEL button is pressed 

.InitDir ■ App.Path + "\Patient Data" 

.Filter = "CycloTech Data File \cpd|*.cpd* 

.DiatogTrtle ■ "Open Patient Data File" 

.DefaultExt = "CPD" 'append "Structure" extention when saving. 
If sFileSpec <> ""Then .filename » sFileSpec 
.ShowOpen 'Open dialog 

End With 

'Now get the data from file 
frmMain.MousePointer = vbHourglass 
Do Events 

r = GetPatientDataFromDisk(frmMain.dlgCommonDialog.filename, PAT DATA, lErrorCode) 
if r <> True Then 

• If lErrorCode = ERR_DATA_CHECKSUM Then 

sTemp = "The contents oTthe data file have changed since it was last saved. " 

sTemp * sTemp ♦ "This could be due to a corrupt file, but is more likely that the file was manually changed." 

sTemp = sTemp ♦ vbCrLf + vbCrLf + The file will not be loaded." 

Beep 

MsgBox sTemp, vbCritical, "File Contents Changed" 
Else 

MsgBox "An error occurred while retrieving data from the file. It was not read.", vb Exclamation, "Error In File . " Error(r) 

I End If w 

I End If 



PAT_DATA.sPatientDataFileName * frmMain.dlgCommonDialog.filename 
OpenPatientData = True 

r = GetFileNameFromSpec(PAT_DATA.sPatientDataFileName, sTemp) 'holt the name of the f.ie 
'UpDateRecentFileMenu sFileSpec 
UpDateRecentFHeMenu sTemp 
frmMain.mnuFileSave.Enabled = True 

OpenPatientData_Exit: 
On Error GoToTb 
RefreshAIIOpenForms 
fnmMain.MousePointer = vbDefault 
Exit Function 
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OpenPatientData_Error: 
— If Err » cdlCancel Then cancel button was pressed m dialog 

OpenPatientData * vbCancel 

Resume OpenPatientData Exit 
_ Else 

Beep 

MsgBox The CycloTech Data file contains invalid data and can not be read.**, vbExciamation, "Invalid Data File - " + Error 
PAT_DATA.sPatientDataFileName ■ "" 
frmMain.mnuFileSave. Enabled = False 
_ End If 

OpenPatientData = False 

Resume OpenPatientData_Exit 'exit anyway for now 
End Function 

Public Sub PopuiateDeviceDiagDialog(DataStruct As DeviceDataStruct, SourceForm As Form) 

'There are two possible biaiogs that have the same controls on them. 
'Thts common procedure will populate both 
Dim i As Integer 

With SourceForm 
'Show custom labels from config file if there were any 
.LabeM (3) = gsCustomLblPatientLastName 
.LabeM (1) = gsCustomLblPatientFirstName 
.LabeM (5) - gsCustomLblPatientID 
.LabeM (6) = gsCustom Lb ITx Center 
.LabeM (7) = gsCustom LblDrug 
.LabeM (0) = gsCustomLblOrgan 



If TypeOf .txtDrug Is SSPanel Then 
.txtDrug = Data Struct.s Drug 

Else If TypeOf .txtDrug Is Combo Box Then It is a list box 
.txtDrug. Clear 

For I = 1 To gsDrugNames(O) 'fill the drugs list box with available choices 

.txtDrug .Addltem gsDrugNamesfi) 
Next I 

For I = 0 To .txtDrug.ListCount - 1 

If .txtDrug. List(l) = DataStruct.sOrug Then 
.txtDrug. Listlndex = i 
Exit For 
End If 
Nexti 
End If 



E 



If TypeOf .txtOrgan Is SSPanel Then 
.txtOrgan * DataStruct.sOrgan 

Elself TypeOf .txtOrgan Is Combo Box Then 'it is a list box 
.txtOrgan. Clear 

For t = 1 To gsOrganNames(O) 'fill the drugs list box with available choices 

.txtOrgan. Addltem gsOrganNames(i) 
Next I 

For i ■ 0 To .txtOrgan. ListCount - 1 

If .txtOrgan.List(i) = DataStruct.sOrgan Then 
.txtOrgan.Listlndex ■ j 
Exit For 
End If 
Nexti 

End If 



.txtPatientLastName = DataStruct.sPatientLastName 
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.txtPatientFirstName * DataStruct.sPatientFirstName 
.txtPatientlD = DataStruct.sPatlentID 
.txtTx Center = DataStmct.sTxCenter 
.txtSerialNumber = Da taStruct.sSerial Number 
.txtDoseStze = DataStruct.sDoseSlze 



.txtPatientLastName.SetFocus 



!f DataStruct.iEventData(O) Then 

.txtEventCount = " " + CStr(DataStruct.iEventData(0)) + " " 
Else 

.txtEventCount = 
End If 



For i * 1 To giMaxDose Times 

If DataStruct.dPrescribedDoseTime(i) >= 0 Then .txtDoseTime{i) = Format$(DataStruct.dPrescribedDoseTime(i), 
V gsTirne Display Format) 
Next i 

.txtDosesPerDay * CStr(DataStruct.iDosesPerDay) 

.txtDoseResoiution - DataStrjctsDose Resolution 

.txtDoseLockoutHours = DataStruct.sDoseLockoutHours 

If DataStructJDevtcelnitDate Then 

.txtDeviceStarted = " " + Format$(CDate(DataStruct.lDevicelnitDate), "Medium Date") 
End If 



E 
E 
E 

E 
E 



.txtMedlcatlonRemaining = " * + DataStruct.sMedRemaining 
.txtBatteryChangeTimer ■ " " ♦ DataStruct.sBatteryChangeTimer 
.txtFirmwareVer = " " + DataStruct.sFirmwareVer 

'set Indicators tor error flags 
If DataStructbErrorFatal Then 

.imgFatal. Picture = .imgError.Picture 
Else 

.imgFatal. Picture * .imgNoError.Picture 
End If 

If DataStructbErrorNonFatal Then 

.imgNonFatal.Picture = JmgError.Picture 
Else 

.imgNonFatal.Picture « .imgNoError.Picture 
End If 

If DataStructbErrorDoseSize Then 

JmgDoseSize.Picture * JmgError.Picture 
Else 

.imgDoseSize.Picture = .imgNoError.Picture 
End If 

If DataStruct.bErrorMedRemaining Then 

JmgMedRemaining. Picture « .img Error. Picture 
Else 

.imgMed Remaining. Picture • .imgNoError.Picture 
End If 

If DataStruct.bErrorMemoryFulI Then 

JmgMemoryFull = .img Error. Picture 
Else 

.imgMemory Fun. Picture = .imgNoError.Picture 
End If 

If DataStruct.bErrorarownOut Then 
.imgBrownOut = .imgError. Picture 
Else 

.imgBrownOut. Picture = .imgNoError.Picture 
End If 



End With 
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End Sub 



Public Sub RefreshAIIOpenFormsO 
Oim r As Integer 

iY any of these forms are open at the time a new file is loaded, 
'then refresh them. 

— For r = 0 To Forms.Count - 1 

— Select Case Forms(r).Name 

— Case "frmPatientDosingReporT 

frmPatientDosingReport.UpdatefrmPatrentDosmgReportHeader 
frmPatientDosingReport.UpdatePatientGridDisplay 



Case "frm Dosing Calendar" 

If PAT_DATA.dEventDate(PAT_DATA.iEventData(0)) > 0 Then frmOosingCalendar.Calendar.Date = CVDatefPAT data 
dEventDate(PAT_DATA.iEventData(0))) 1 " ** 

UpdateCalendar 

Case "frm Print" 
RefreshPreview 

Case "frm Patients ummary" 

frmPatientSummary.UpOatefrrnPatientSurnrnaryHeader 
frmPatientSummary.cmboDateSelection_Click 
'frmPatientSummary.UpdatePatientDosingGraph 

Case "frmDevicelnitialke" 

PopulateDeviceCommDialog PA T_ DATA, frmDevicelnitiallze 

Case "frmReadDeviceData" 

PopulateDeviceCommDialog PAT_DATA, frmReadDeviceData 



End Sub 



E 



Public Sub SetPrinterlcon(bEnable As Boolean, sTip As String) 

On Error Resume Next 
frmMain.mnuFilePrint.Enabled = bEnable 
If sTip = "" Then 

frmMain.mnuFilePrint.Caption = "Print..." 
Else 

frmMatn.mnuFile Print. Caption = sTip 
End If 

frmMain.tbToolBar.Buttons.Item(5). Enabled = bEnable 
frmMain.tbToolBar.Buttons.ltem(5).ToompText = sTip 

'If the active form is not the print form, then keep the name of the 
'form in the key property of the icon. This is so (hat the print 
'fonv wili know what kind of information to display and print. 

If frmMain.ActtveForm.Name <> "frmPrint" Then gsActive Form Name * frmMain.ActiveForm.Name 
On Error GoTo 0 
End Sub 
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Public Sub UpDateRecentFHeMenu(ByVal sFileSpec As String) 

'Add the newest File Name to the me null st and move the other ones down. 
On Error GoTo 0 

Dim bDuplicateFound As Boolean, i As Integer, r As Integer, sFileName As String 
r = GetFileNameFromSpec(sFileSpec, sFileName) hold the name of the file 

With frmMain 
_ For I a 1 To .mnuFiieMRU.UBound - 1 

— If LCase$(.mnuFileMRU(i).Caption) = LCaseS(sFileName) Then 'remove any dwiicstes that might apcear 

.mnuFileMRUO). Caption = 
.mnuFileMRU(i).Tag = "" 
bOuplicateFound ■ True 

— End If 

— Nexti 

_ For i « .mnuFiieMRU.UBound - 1 To 1 Step -1 

— If .mnuFileMRU(i). Caption <> " Then 'contains a filename ok to shift down 

.mnuFileMRUO + 1). Caption = .mnuFileMRUO). Caption 'holds filename only for display purposes 
.mnuFileMRU(i + 1).Tag a .mnuFileMRU(i).Tag 'holds the niescec 

.mnuFileMRUO + 1).Visibie - True 

— Else 

- .mnuFileMRUO ♦ 1). Visible = False 

— End If 

— Nexti 



.mnuFileMRUO ).Tag » sFileSpec 
.mnuFileMRU(1).Caption = sFileName 
.mnuFileMRUO ).Visible ■ True 
.mnuFileBar6. Visible = True 



End With 
End Sub 



Public Function GetFiieNameFromSpec(ByVal sFileSpec As String, sFileName As String) As Integer 

'Strip the filename and extention from the die spec (dhve\path\fiiename) 

Dim r As Integer 

ReDim sList(SO) As String 

On Error GoTo GetFileNameFromSpec_Error 

. If Len(sFileSpec) > 0 Then 

r = ParseOellmString(sFileSpec t T, sListQ) 'delimit all subparts 
sFileName = LCase$(sUst(r)) 'file name is last item in list 

'something was returned 

If Len(sFileName) > 0 Then GetFileNameFromSpec = True 'return success to caller 
End If 



GetFileNameFromSpec_Exit: 
Exit Function 

GetFileNameFromSpec_Error: 
"Resume 0 
Resume GetFileNameFromSpec_Exit 

End Function 
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Public Function ParseDelimString(ByVal sParse As String, ByVal sDelim As String, sFieldStringsn As String r 

'Parse "sParse" passed here. Put resulting parsed names in a list called sPieldStnngs. tr, ngj A 

'Use sDefim as the delimiter to parse string. 

'Tnm any leading and trailing spaces from each held. 

'sfieldString list must pre-exist before calling here, and should be big enough to 
'hold all delimited strings. 

'The list contains fields in trie order they appeared from !eft to ngrit. 
'Function returns number of He ids found 

Dim i As Integer Yoop counter 

Dim iDelim! As Integer, iDelim2 As integer marts beginning and enc of a fielc 

If Len(sParse) = 0 Then Exit Function 'exit if no chars in stnng 

iDeliml = 0 'set first deiim marker to beginning of line 

If Right$(sParse, Len(sDeiim)) <> sDelim Then see if a delim is aireadv at trie end of the stnng 

sParse - sParse * sDelim 'put a deiim a: end of line 

End If 

Wore, an Erase method can not be used as it redims the array to only a few elements 
For i = 0 To UBound(sFieldStrings) 'clear out oid data from the arrav 

sFieldStrings(i) = - 
Nexti 

1*0 

_ Do While iDeliml < Len(sParse) 'keep lookjng til all delims are found 

iDettm2 = lnStr(iDeliml + 1 , sparse, sDelim) 'look for delim in siring 

get field from string, tnm offsoaces and put field into list 

sFieldStringsfl + 1 ) s Trim$(Mjd$(sParse, iDeliml ♦ 1 , iDelim2 - iDeliml - 1 )) 

iDelim 1 = iDe!im2 'reset first delim marker to fastest one found 

i = i ♦ 1 'increment field counter 

— Loop 'repeat search 

ParseDelimString = i -put parsed items count in element 0 ofiist 

End Function 



Public Function SaveDataToNewFileQ As Integer 

'Get a filename from trie common dialog 

'Setup the common diaJog controi pnor to showing it 

On Error GoTo Save Data To NewFile_Error 
With frmMain.dlgCommonDialog ~* 

.Flags = cdlOFNOverwritePrompt Or cdlOFNCreatePrompt Or cdlOFNPathMustExist Or cdlOFNExpiorer Or cdlOFNExtensionDifferent 

V Or cdlOFNNoReadOnlyRetum Or cdlOFNHideReadOnly 

. CancelErro r ■ True 'generate error if CANCEL button is pressed 

JnitDIr ■ App.Path + "\Patient Data" 

.Filter * "CycloTech Data File \cpd|\cpd" 

.DialogTftle * "Save Patient Data As..." 

.DefauttExt ■ "CPD" 'append 'Structure* extention when saving. 

I If PAT_DATA.sPatientDataFileName » - Then 

.filename » PAT_DATA.sPatientLastName ♦ " * + PAT DATA.sPatientFirstName + " ■ + PAT DATA.sPatientID + " cod** set , 

V default file name " r 
Else 

.filename * PAT_DATA.sPatientDataFileName 

I End If 

.ShowSave save as dialog 
End With 



PATJDATA.sPatientDataFileName = frmMain.dlgCommonDialog.fiiename 
SavePatientData PAT_DATA.sPatieniDataFileName 
SaveDataToNewFile = True 

SaveDataToNewFiIe_Exit: 
Exit Function 

SaveDataToNewFile_Error 
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If Err = cdlCancel Then 'cancel button was cressed in dialog 

SaveDataToNewFile * vbCancel 

Resume SaveDataToNewFile Exit 
End If 

SaveDataToNewFile = False 



End Function 



Public Function SavePatientData(ByVal sFileSpec As String) As Integer 

'Save ail of the patient data currently tn memory to a disk file 

'Return a true if save was successful, false if net. and voCancei if user cancelled 

Dim sTemp As String, r As Integer, i As Integer, sSection As String 
Dim ICheckSumTally As Long 

On Error GoTo SavePatientData_Error 

■ r = GetFileNameFromSpec(frmMair.,dlgCcmmor.Dialog.filsname. sTemp) 'save the ar was selected by user 

'We need to confirm with user that it is desired tc save these file modifications under the same 
'name as the one that was Just loaded. 

IfLenffrmMain.dlgCommonDialog.fiiename) And frmMain.digCommor.Dialog.filename = UCaseS(Froj.sStructFileName) Then 
• MSGS = 'You are about to save changes to the same file they were loaded from!" 
MSGS = MSGS + * Are you sure you want to do this?* 
Beep 

r - MsgBox(MSGS. MB_YES_NO. -Confirm Over Write') 

If r = /D_/VO Then Exit Function 'oops, user almost made mistake, extt sub 

End If 

'Now save the data to the file 

•r = GetFileNameFromSpec(sTemp. sFileSpec) 'hold the name of the file 
sFileSpec = App.Path & Patient Data" 

frmMalaMousePointer = vbHourglass 
Do Events 

sSection * "Device Data" 

SavelNISetting sFileSpec, sSection, "Date Saved To File", Now 

f 6 ^ ng s S! e ! pec ' sSect * on . " H ost Software Version", CStr(App. Major & V & App.Minor & V & App.Revision) 

SavelNISetting sFileSpec, sSection, "Firmware Version", PAT_DATA.sFirmwareVer 

S ^^^ngbi^ sSection ' " Last Download Date", CDate(PAT.DATA.dLastDownioadDate) 'short date must be used tc prevent 

SavelNISetting sFileSpec, sSection, "Device Init Date", CDate(PAT DATA. IDe vice InitDate) 

SavelNISetting sFileSpec, sSection, "Events Ref Date Time", CDate(PAT DATA.dDeviceRefDateTime) 

SavelNISetting sFileSpec, sSection, "Last Name", PAT DATA.sPatientLastName 

SavelNISetting sFileSpec, sSection, "First Name", PAT~DATA.sPatientFirstName 

SavelNISetting sFileSpec, sSection, "Serial Number", PAT DATA. sSeria IN umber 

SavelNISetting sFileSpec, sSection, "Patient ID", PAT DATA.sPatientID 

SavelNISetting sFileSpec, sSection, "Organ", PAT DATA.sOrgan 

SavelNISetting sFileSpec, sSection, "Organ Reference Number", CStr(GetOrganRefNumberO) 
SavelNISetting sFileSpec, sSection, Tx Center", PAT DATA.sTxCenter 
SavelNISetting sFileSpec, sSection, "Drug", PAT DATA.sDrug 

SavelNISetting sFileSpec. sSection, "Drug Reference Number, CStr(GetDnjgRefNumberQ) 
SavelNISetting sFileSpec, sSection, "Dose Size", PAT DATA.sDoseSize 
SavelNISetting sFileSpec, sSection, "Doses Per Day"."cStr(PAT DATA.iDosesPerDay) 
SavelNISetting sFileSpec, sSection, "Dose Resolution", PAT DATA. sDose Re solution 
SavelNISetting sFileSpec, sSection, "Medication Remaining"7PAT DATA.sMedRemaining 
Save N Setting sFileSpec, sSection, "Battery Change Timer, PATTDATA.sBatteryChangeTimer 
SavelNISetting sFileSpec, sSection, "Lockout Hours Between Doses", P AT_D A TA.s Dose Lockout Hours 

For I = 1 To 1 4 

SavelNISetting sFileSpec, sSection. "Patient Score Data " + CStr(i), PAT DATA.sScoreData(i) 
Next i ~™ 

For i s 1 To giMaxDose Times 
- If PAT_DATA.dPrescribedDoseTime(i) >= 0 Then 
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SavelNlSetting sFileSpec, sSection. "Prescribed Dose Time " + CStr(i), FormatSfPAT DATA.. 
V gsTimeOisplayFormat) 




Else 

SavelNlSetting sFiieSpec, sSection. "Prescribed Dose Time " ♦ CStr(i). " None" 

I End If 

Nexti 



This section is finished. Go compute the checksum and save it. 
ICheckSumTally = ComputelniSectionChecksum(sFileSpec. sSection) 
SavelNlSetting sFiieSpec, "General", "Device Data Validation", CStr(ICheckSumTaHy) 



'Before saving new event data, clear cut the old strings 
sSection = "Event Data" 

r = WhtePrivateProfiieString(sSection, ByVal 0&, ByVa! 0&, sFiieSpec) 
SavelNlSetting sFiieSpec. sSection, "Event Count", CStr(PAT_DATA.iEventData(0)) 

j For i = 1 To PAT_DATA.iEventData(0) 'total numoer of events 

sTemp = Format$(PAT_DATA.dEventDate(i), "General Date") + " 

. Select Case PAT_DATA.byteEventType(i) 

Case giEVENT_DOSE_TAKEN 

sTemp = sTemp + "Dose Taken, " 

Case giEVENT_DOSE_CHANGED 

sTemp « sTemp + "Dose Change, " 

Case giEVENT_USER_DEFINED 

sTemp = sTemp + "Custom Event, " 
I End Select 

sTemp = sTemp + CStr(PAT_DATA.iEventData(i)) 
sTemp = sTemp + " ," + PAT_DATA.sUserData1(l) 
sTemp » sTemp + " ," + PAT_DATA.sUserData2(I) 
sTemp = sTemp + " ," + PAT_DATA.sUserData3(i) 
SavelNlSetting sFiieSpec, sSection, CStr(l), sTemp 
I Nexti H 

*T?7/s section is finished. Go compute the checksum and save it. 
ICheckSumTally = ComputelniSectionChecksum(sFiieSpec t sSection) 
SavelNlSetting sFiieSpec, "General-, "Event Data Validation", CStr(ICheckSumTally) 



sSection = "Device Error Flags" 

SavelNlSetting sFiieSpec, sSection, "Fatal", CStr(PAT DATA.bErrorFatal) 
SavelNlSetting sFiieSpec, sSection. "Non Fatal", CStr(PAT_DATA.bErrorNonFatal) 
SavelNlSetting sFiieSpec, sSection, "Dose Size", CStr(PAT_DATA.bErrorDoseSize) 
SavelNlSetting sFiieSpec, sSection, "Med Remaining", CStr(PAT DATA.bErrorMed Remaining) 
SavelNlSetting sFiieSpec, sSection, "Memory Full", CStr(PAT_DATA.bErrorMemoryFull) 
SavelNlSetting sFiieSpec, sSection, "Brownout", CStr(PAT_DATA.bErrorBrownOut) 

'This section is finished. Go compute the checksum and save it 

ICheckSumTally ■ ComputeIniSectionChecksurn(sFileSpec, sSection) 

SavelNlSetting sFiieSpec, "General", "Device Error Flags Validation", CStr(ICheckSumTally) 



gbPatientOataNotSaved = False 

r = GetFileNameFromSpec(sFileSpec. PAT DATA.sPatientDataFileName) •hold the name of the die 
UpDateRecentFileMenu sFiieSpec 
frmMain.mnuFileSave.Enabled = True 
SavePatientData = True 



SavePatientData_Exit: 
On Error GoTc~0 

frmMain.MousePointer = vbDefault 
Exit Function 

SavePatientData^Error 
SavePatientData = False 
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Resume SavePatientData_Exit exit anyway for now 
End Function 



Public Sub PopulateDeviceCommDialog(DataStruct As DeviceDataStruct, SourceForm As Forml 

There are two possible diaicgs that have the same controls on them. 1 
'This common procedure will populate both 

On Error Resume Next •net ail text boxes wifi appear on everv form 
Dim i As Integer 

With SourceForm 
'Show custom labeis from con fig file if there were any 
.Labeil (3) ■ gsCustomLblPatientLastName 
.Label1(1) = gsCustomLblPatientFirstName 
.Label1(5) = gsCustomLblPatientID 
.Label1(6) = gsCustomLblTx Center 
.Label! (7) » gs Custom Lb I Drug 
.Label1(0) = gsCustomLblOrgan 



E 



If TypeOf .txtDrug Is SSPanel Then 

.txtDrug = DataStruct.sDrug 
•Elself TypeOf .txtDrug Is ComboBox Then Vf ts a list box 

.txtDrug. Clear 



For i = 1 To gsDrugNames(0) TFfl the drugs fist box with available choices 

.txtDrug-Addkem gsDrugNames(i) 



Nexti 



For i = 0 To .txtDrug. ListCount - 1 

If .txtDrug.Ust(l) = DataStruct.sDrug Then 
.txtDrug. Listlndex * i 
Exit For 
End If 
Nexti 

End If 



If TypeOf .txtOrgan Is SSPanel Then 
.txtOrgan = DataStruct.sOrgan 

Elself TypeOf .txtOrgan Is ComboBox Then It is a list box 
.txtOrgan. Clear 

For i =1 To gsOrganNames(O) •/?// the drugs fist box with available choices 

.txtOrgan. Addltem gsOrganNames(l) 
Nexti 

For i « 0 To .txtOrgan. UstCount - 1 
If .txtOrgan.List(i) = DataStructsOrgan Then 
.txtOrgaaUstlndex = i 
Exit For 
End If 
Next i 

End If 

.txtPatientLastName = DataStruct.sPatientLastName 
.txtPatientFirstName = DataStruct.sPatientFirstName 
.txtPatientID = DataStruct.sPatientID 
.txtTxCenter = DataStruct.sTxCenter 
.txtSerialNumber = Da ta Struct. sSe rial Number 
.txtDoseSize = " " + DataStruct.sDoseSize 
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If DataStruct.iEventData(O) Then 

Else tEVemC0Um = " " + CStf(DataStructJEventData (0)) * " " 

.txtEventCount = 
End If 

If PAT_DATA.dLastDownloadDate Then 

^Cr^ " Sh ° rt ° ate ^ * " " * F °-«(CDa«e ( D a «aS«ruc,. 

Else 

.txtLastRetrievalDate = 
End If 

.txtPatientLastName 'take focus away from list box after it was sef 

For i = 1 To giMaxDoseTimes 

If DataStruct.dPrescribedDoseTime(i) >= 0 Then 

End C | t f DOSeTime(l) = " " + Fomat5(DataStmct - dPrescnbedDoseTime (0. gsTlmeDisplayFormat) * - - 
Next i 

.txtDosesPerDay = " - + CStr(DataStruct.iDosesPerOay) + - " 
.txtDoseResolution * " - * DataStruct.sDaseResolution ♦ " - 
.txtDoseLockoutHours = " " ♦ DataStruct.sDoseLockoutHours ♦ — 
.txtMedicationRemaining = - - ♦ DataStructsMedRemaining + " " 
If DataStruct.lDevicelnitDate Then 

End?f DeViCeStarted = " + Format$(CDate < DataStruct - ,De v»celnitDate) t "Medium Date") 

.txtBatteryChangeTimer = - - + DataStruct.sBatteryChange Timer ♦ - - 

'set indicators for error flags 
With DataStruct 

SourcuForm.lbiErrorsReceived.Visible = True 
Else 

SourceFormJmgEiTorsReceh/ed. Visible = False 'no errors exist 

SourceForm.lblErrorsReceived.VIsible - False 
End If 

End With 

End With 

On Error GoTo 0 

End Sub 



Public Sub SaveProgramPreferencesO 

Dim I As Integer, sSection As String, sFileSpec As String 
sSection = "Preferences" 

Sav!lNts^!nn n^ PP ! n !c!! e ! PeC ' sSection ' " Date Di»P*»Y Format". gsDateDisplayFormat 
Save IN lett SJS^S^ ^ DiSp,ay Fwm>r ' SsT.meDisplay Format 

SavelNlSett.nggsApplniFileSpec, sSection, "Compliance Time Range". CStrfgsngComplianceTimeRange) 

Save the names of the most recently used tf/es from the menu 
ror i * 1 To frmMain.mnuFileMRU.UBound 

^SavelNISettinggsApplniFileSpec, "Recent Files". CStr(i), frmMain.mnuFileMRU(i).Caption 
SavelNISetting gsApplniFileSpec, "Options". "Current Tip", CStr(giCurrentTip) 
Save Settings of Calendar Fonn 

ttllmttml SAnnS G t PeC * ^ a ! en ^ r ! eltin9S "' " chk DosesMissed". CStr(CAL_DEFAULTS.chkDosesMissed) 
III nu f « 9 gsA PP ,ntF,leS Pec. "Calendar Settings". "chkDosesNotComplied", CStrfCAL DEFAULTS chkDosesNote 0 mnii«« 
f III m t e H ,n9 9 sA PP ,niFi,e Spec. "Calendar Settings". "chkDosesTaken", CStr(CAL DEFAUL^ 
SavelNISett.nggsApplniFi.eSpec, "Calendar Settings", "chkDoseChanged", CsV(CaI.DEFAUL^ 

■ ^ 



^7 



WO 99/35588 



PCT/US98/22830 



Genera/.bas - SaveProgramPrefef6r>c 



'Save Settings of Patient Summary Form 



'Note that ttvs date is not necessarily a dosing event date. It could oe any tond of event 

successive accroxtmation lookup c t the date in the arrav 
Dim , As Integer, iLowlndex As Integer, iHighlndex As Integer, ^est.ndex As Integer 

!h^? X S I ' stan at *»»S of array 

High ndex * DataStnJctiEventData(O) 4p at end o< array 
iTestlndex = (IHighlndex + iLowlndex) / 2 Y 

— For i = 1 To 7 'this number of ines is ail that is necesssrs to fir" the d a >* 

FindFirstMatchingDateinArray = iTestlndex 

End If 

iTestlndex = (iHighlndex + iLowlndex + 0.5) / 2 

- Next! 
End Function 



V one is found """ ° " " 0t ' W or reft " 71 »• » »• 



E 



*'»«-^*r»«r^ precede can be „ coaetf , 0 d0 . SOC6essVe app— ofl 
Dim i As integer 

If IFromDate = 0 Then JFromDate * 99999 

"SaS*-5!. 

Exit For 
End If 
Nexti 



End Function 
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P U L ^ ave,N » Setti "9(ByVal sRIeName As String, ByVal sSection As String, ByVal sKeyField As String, s 



I = WritePnvateProfileString(sSection, sKeyField, sValue, sFileName) 
End Sub 



Public Function Va I i date DoseNum be rs(frm Target As Form) 

'Ensure that there are at (east as many cose times as there are 
'for the number of doses per day 

Dim i As Integer, iDailyDoseCounts As Integer, iDosesPerOay As Integer 

,f w n < -^ T ^ DATA - sPatientDataFlleName) = 0 And Len(PAT DATA.sSerialNumber) = 0 Then 
ValidateDoseNumbers = True 
Exit Function 
End If 



With frm Target 

iDosesPerOay = Val(.txtDosesPerDay) 

- For i = 1 To 4 

If IsOate(.txtDoseTimeO)) Then 

IDailyDoseCounts = iDailyDoseCounts + 1 
End If 
Nexti 

If IDailyOoseCounts ■ iDosesPerDay Then 
ValidateDoseNumbers = True 

Else 
Beep 

S^^S^eS' " + <~*~*~*~* ♦ - Oose tet 
.txtDosesPerDay.SetFocus 
'.UpDownDose Time(4).SetFocus 
End If 



End With 
End Function 



Public Function Validate PatientDataSavedQ 

Pa&en I data memor y ls saved proceeding to load new data from device 

Return tru$ tf successful, else ntum vbCancel if usr cancelled 

Dim r As Integer 

— Su««^: WS * ft. «* M condor, unless set otn^s, b . low 

Beep 

r A^t1S£^S2!SSn at " CUrrenUy ^ mem0fy bCen S3Ved - D ° y ° U W3nt t0 5376 lt? " vbYesN °Cancel * vbQuestion, • 

— lfr=»vbYesThen 

r = SaveDataToNewFileQ 

If r = vbCancel Then ValidatePatientDataSaved = vbCancel 'cancelled from the save as dialog 

— Elself r = vbCancel Then 

ValidatePatientDataSaved = vbCancel -cancelled from message box 

_ End If 
. End If 
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End Function 



Public Sub Wait(ByVal dSeconds As Double) 

'watt for the specified time passed here, then return tc cafter. 
Dim dDeiay As Double 

dDetay = DateAddt's'. dSeconds CDbt(Now)) 

dDeiay = CDbl(Now) + (dSeconds / 86400) '36400 seconds >.n a day 




Loop While (dDeiay >= CDbl(Now)) 



End Sub 
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Attribute VB_Name = "modComm" 
Option Explicit 

'Global definitions for device communication, 
by Glen Hamilton 10/5/$ 7 

' for RS232 communication 

Public gbCommTimerExpired As Integer 'this nag is set when the comm. timer expires 

Public giCommPort As Integer 'Communication Port # 

Public gsCommDeviceSettings As String 'speed settings tie 240C.N.8.2) 

Public gbCommReplyPending As Boolean 'a command was Just sen:, and reply is pending 

Public gbCommBusy As Boolean 'a command is in progress. Get s cleared when reply is received or times out 

Public gbCommOK As Integer needs to be an integer (no boolean) keecs currant status of communications « 

W comm. true = comm ok, any ether value for stimulation " 

Public giDe vice Response Wait As Integer 'miiiisecs to wait for next char before assuming end of received srnnn 

Private Const ERR_COMM_BADRESPONSE = 31 001 ~ 

Private Const ERR_COMM_TlMEOUT = 30998 

'Private Const ERR_COMM_STR!NGLENGTH = 3C997 

'Pnvate Const ERR_COMM BUSY - 30996 

Private Const ERR_COMMj3HECKSUM = 30995 

Public Const ERR_DATA_CHECKSUM ■ 99997 

Public Const ERR_NEVVHR_HOST_ SOFTWARE = 99998 'set when device returns custom data that was saved with a newer revision 



'Device communications 

Public gbKeepPollingDevice As Boolean 'when true, continuous polling of device is done 

'Define some application specific vanables & constants 
Public gsApplniFileSpec As String 

Type OeviceOataStruct 

sPatientLastName As String '(16 bytes) uses 1st 16 byte block of the patient/pharmacy ID & Names 
sPatientFirstName As String '(16 bytes) uses 1st 16 byte biock of the patient/pharmacy ID & Names 
sPatientiD As String 

sDrug As String '(16 bytes) uses 2nd 16 byte biock of the patient/pharmacy ID & Names 

sOrgan As String -(1$ bytes) uses 2nd 16 byte block of the patient/pharmacy ID & Names 

sTxCenter As String '(16 bytes) uses 2nd 16 byte block of the patient/pharmacy ID & Names 

sSerialNumber As String y 70 bytes) device serial number 
sFirmwareVer As String 'Rev version and date of firmware 

sDoseStze As String '(1 byte) stored here in mg. The device uses 'ml" (100mg = 1 ml) 

'Device Dose size is in optical ticks (0 to 200) max dose = 5 mi. 

sPatientDataFileName As String 'file path and filename of the data in memory 

'Note: the daily prescribed dosing times below are stored in fractional days. This is done 
'to speed display operations and reduce the amount of memory needed. The device actually stores 
'these values as intervals relative to 1:00 in the morning. Thus, the times are convened to 
'intervals when communicating with the device. 

dPrescribedDoseTime(4) As Double -doses due during the day (prescribed) usually a max of four 
iDosesPerDay As Integer '(1 byte) # of doses per day (1 to 4) 
sOoseResolution As String '(1 byte) Called 'Dose Conversion " in firmware. 

'Optical ticks to mg multiplier. (IE 2 ticks =10 mg.) 

'Optical ticks are fixed at 0. 05 ml per tick. 
sMedRemaining As String '(2 bytes) Medication 'Supply volume' remaining fin optical ticks) 

sSeoreData(14) As String 'Today's scored 4 bytes for ail scores) of last U days doses taken. Circular buffer. 

'valid data is value from 0-4 representing number of doses taken each day. 

'Note: The "Score pointer points to the current day. 

'Note that the following arrays can not be larger than 1500 events or else the space limit 
'of64K will be exceeded. If necessary in the future to have more events than this for 
'a single file then make a separate array for the diagnostic data or temp data. 

iEventData(1400) As Integer 'the data occurring for the event data. Might be a dose size, error flags etc 
dEvent0ate(1 400) As Double 'list of dose days in order of first taken to mast recent 
byte EventTy pe(1 400) As Byte 'value =0 if it is a dose taken 

'value = 1 if data event is a dose command change 

'value a 2 if user entered entered 
sUserData 1 (1 400) As String 'user entered data in the first column of the gnd 
sUserOata2(1 400) As String 'user entered data in the first column of the gnd 

— ^ 
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sUserData3(1400) As String 'user entered data m the first column of me gnd 




sClock As String '(2 bytes) 10 minute resolution 'OOCO" = 7 am on first dose day. 

IDevicelnitDate As Long date the device started 

dDevlceRefDateTime As Double 'date and time that all events are referenced to. 
sBatteryChangeTimer As String '(2 bytes)3attery change timer, in 10 minute increments 
sDoseLockoutHours As String '(1 byte) Hours to lockout dosing after a dose is taken 
bErrarFatal As Boolean 'true if this flag was set in the returned flags stnng 

bErrorNonFatal As Boolean 'true if this flag was set in the returned flags stnng 
bErrorDoseSize As Boolean 'true if this flag was set in the returned fiags stnng 
bErrorMedRemaining As Boolean 'true if this fiag was set in the returned fiags stnng 
bErrorMemoryFull As Boolean 'true it this flag was set in the returned flags stnng 
bErrorBrownOut As Boolean 'true if this flag was set in the returned flags stnng 
bErrorsExIst As Boolean '( 1 byte) Bits are set if various errors have occurred and have not 

'been corrected. A value of m 0" is normal (no errors). Errors 

'are corrected by either correcting the specific situation or 

'resetting 1 reloading the cosing parameters 

'30=1 if fatal sysrem faiiure 

'81=1 if non-fatal system faiiure has occurred 

'32-1 it error has occurred in Dose Size Volume 
. '83=1 it error has occurred in Supply Voiume value 

'34= 1 if compliance memory is near full 

'35=1 if brownout (iow voltage) occurred 

aLastOownloadDate As Double 'date of last data retrieval from device 
End Type 

Public PAT_DATA As DevlceData Struct 
Public TEMP^DATA As Device DataStruct 

Public gsDrugNames(25) As String 'names of drugs used to populate the list boxes on dialogs 

Public gsOrganNames(2S) As String 'names of gsOrganNames used to populate the list boxes on dialogs 

Public Const giEVENTJDOSE TAKEN = 0 
Public Const glEVENTD OS EXCHANGED » 1 
Public Const giEVENT USER""dEFINED = 2 



These values indicate the stnng position (returned from the device) where each element 

'begins. This is the stnng that is returned when a request for "all memory' is sent 

See above structures for more detail information about format 

Public Const DATA_BEGIN DOSE SIZE = 1 '7 byte 

Public Const DATA_BEGIN DOSE~INTERVAL1 =1*2 + 1 '1 byte 

Public Const DATA_BEGIN DOSE INTERVAL2 = 2*2 + 1 '1 byte 

Public Const DATA_BEGIN_DOSE INTERVAL3 = 3*2 + 1 '1 byte 

Public Const DATA_BEGIN DOSE INTER VAL4 = 4*2 + 1 '1 byte 

Public Const DATA_BEGiN DOSES PER OAY = 5*2+1 '1 byte 

Public Const DATA_BEGIN_DOSE CONVERSION = 6*2 + 1 '1 byte 

Public Const D ATA_B EGI N_D O S E LOCKOUT^HOURS = 7*2 + 1 '1 byte 

Public Const DATA_BEGIN_DOSE SCORE_DAY POINTER = 8*2+1 '1 byte 

Public Const DATA_BEGIN_MED_REMAINING = 9*2 + 1 '2 oyfes 

Public Const DATAJJEGIN_CLOCK =11*2 + 1 *2 bytes clock starts at 1am on first dosing day (10 min increments) 

Public Const DATA_B EGI N_B ATTER Y_CHANGE TIMER = 13*2 + 1 *2 oyfes 
Public Const DATA_BEGIN_ERROR FLAGS = 1S~* 2 + 1 '1 byte 

Public Const DATA_BEGIN_PREV_DOSE_PARAMS = 16*2+1 '16 bytes of copy ofprev dosing params 

'(used for error checking internal to dispenser) 
Public Const D ATA_B EGI N_KEY_B ITS = 32 * 2 + 1 ' 'activation of keys on device 

Public Const DATA_BEGlNJ_IFE_COUNT = 33 * 2 + 1 'LS3 in 33. MSB in 34 

Public Const DATA_BEGINJJFE_COMPlETION = 35 * 2 ♦ 1 '=0 when life cycle is programmed. = 1 when life test completes 

successfully 

Public Const DATA_B EGI N_COMP ENS ATI O N FACTOR = 36 * 2 + 1 'values from 64-192 (128= 1 0 factor) 
Public Const DATA_BEGIN_SERIAL NUMBER = 38 * 2 + 1 '10 bytes 

Public Const DATA_B EGI N_C USTOM 1 = 48 * 2 + 1 '16 bytes of patient/pharamcy ID £ names 

Public Const DATA_BEGIN_CUSTOM2 = 64 * 2 + 1 '16 bytes of patient/pharamcy ID & names 

Public Const DATA_BEGIN_CUSTOM3 = 80 * 2 + 1 '16 bytes of patient/pharamcy ID & names 

Public Const D ATA_B EG I N_C U S TOM 4 = 96 ■ 2 + 1 '16 bytes of patient/pharamcy ID & names 

Public Const DATA_BEG!N_SCORE = 112*2 + 1 '14 bytes 

Public Const DATA_BEGIN_COMPLIANCE_CHECKSUM = 1 28 • 2 + 1 '2 bytes Includes compliance pointer and data 
'(up to data word 1 before data pointed to by comp pointer 
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C ° nSt DATA - BEG,N - COMPUANCE -. p O'NTER - 130 • 2 ♦ 1 '2 bytes points to nect location after end of current compliance" 
base value - 132 (0x0084) 

^^ C0nSt OATA - B ^N_COMPLIANCE,OATA* 132*2 + 1 900 bytes max. Array of 2 byte values for dose compliance 

'Clock time values (in 10 minutes resolution from start) when each dose 
'was taken. Represented by values 0-65279 (0-Oxteff). Each dose ttme 
'is changed via the 'Set Mode", a value between QxffCO and OxffcB is wntten 
'with the LSD byte representing the dose size. When compliance memory is 
'cleared, the current dose size is always wntten as the first location in 
'the compliance memory 



Public Sub ChangeBatteriesRequestO 
Dim r As Integer, lErrorCode As Long, sMSG As String 

sMSG = "You should continue only if you are replacing the batteries in the device." 
sMSG = sMSG + - This ensures that the battery time counter will be accurate." + vbCrLf * vbCrLf 
sMSG * sMSG + " Did you just replace the batteries or are you about to change them now?" 
r « MsgBqx(sMSG, vbQuestion + vbYesNo + vbDefauttButton2, "Change Batteries") 

If r = vbNo Then Exit Sub 

gbKeepPoliingDevice = False 'stop polling for now 

Wait 0.25 

On Error GoTo ChangeBatteriesRequest_Error 

r = Comm_SendResetClockAndBattery(!ErrorCode) 

! If lErrorCode Then 

Error lErrorCode error number 
Else 

sMSG = "Replace the device batteries now and retrieve data from the device again when complete." 
r « MsgBoxfsMSG, vbExclamation, "Change Batteries") 
I End If 

Change BatteriesRequest_Exit: 
gbKeepPollingOevice * True 'continue polling device 

Exit Sub 

ChangeBatteriesRequest_Erron 
DisplayErrorMessage lErrorCode 
Resume Change Batten esRequest_Exit 

End Sub 



Public Function Comm_CheckComm(IErrorCode As Long) As Integer 

'Check the device communication by sending a command and waiting for a reply. 
'If no reply Is received, then return a 'false' flag to caller. 

'Important Note: Due to the way the firmware was designed for the device, it seems not 
'to return anything if the command is in error. This is not good because 
■we would not know whether or not a failed reply is due to a back cable, incorrect comm port 
or settings, etc. Hopefully in a future version, the comm check can return some sort of 
'character to indicate that a common byte was received, but could not be interpreted correctly. 



Dim sOut As String, sChecksum As String, sin As String 

sOut = "Pp" 'this is the code for checking communication with device 

CreateChecksum sOut, sChecksum calculate a checksum 

sOut = sOut + sChecksum + T 'append checksum and ending string identifier 

If Not frmMain.CommDevice.PortOpen Then frmMain.CommDevice.PortOpen = True 

gbCommBusy = True 'prevent other procedures from communicating with device 

frmMainXommDevice.lnputl.en * 0 'clear input buffer 
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frmMain.CommDevice. Output * sOut send stnng ro aevice [_29^ 

_ J&rerCode-O 'reset error code 

j If gbCommTimerExpired Then timer -want «^ «. * , 

| En »To Comm_CheckComfn_Exrt ■„,„„, „ calling procedure 

Do Events 

- Loop Until fh^MamXommDeviceJnBufferCount > 0 , 00 o W a reply , s receive* or urr.eout occur, 

S co^ o' in COmmDeViCe - ,nPUt * e3 = " s <™ se «™ Po- 

ll sin = -S- Then Comm.CheckComm = True return success to caller 
Comm_CheckCornm Exit* 

*2£5£E£2Z3^ The " ^f^ce.^n - False • Oose tne sen,, po, 

gbCommBu S y = False 7w« *£' 

End Function 



As String, lErrorCode As Long, As .nteger 

•Ger fl» reply into *Reply> and rTum to caller. ano^erpn)ced^e *„d a repvy« penc*^ 

'*ert//n fc/se ///70 rep/y and ser lErrorCode to reason 

Return ERR^COMM^ TIMEOUT if no reply from the device 

error code = 0 ;/ comm is already busy. 

'I f reply then return number of characters received 

Close comm port once a reply is received or if an error occurs. 

Dim iLastBufferCount As Integer, r As Integer 

On Error G0T0 Comrn_GetDeviceReply Error 
gbCommReplyPending = True " >*„ t k,,^ , „ 

frmMain.MousePointer = vbHourglass * ,-ff 

'Open comm port in case it is dosed 
'prevent device unavailable error 

.f^ai rL Co mmD ev«e.PonOpen = Fa,s.Tnen frmMain.CommDeviee.PortOpen = True open pen 
'Wait for first char to arrive 

DoEvents 

'timer event sets this to true 
Jf gbCommTimerExpired Then Error ERR_COMM_TIMEOUT ■return message to caller. No response 

'First char has bean received 
'Wait for all data to arrive 

!£ ^fY^EJ 1 * = ~ 1 b»ter count 

uo wnife trmMaiaCommDeviceJnaufferCount > iLastBufferrr,,,^ 

DoEvents 
Loop 

L ° 0P 7o °P characters are still coming in 

'Ail data has amved or time has been too long 
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r » frmMain.CommOevice.lnBufferCount 'get character iengrh 

sReply * frmMain.CommDeviceJnput read srnng from buffer 

Comm_GetDevice Reply = Len(sReply) return buffer length to cailer (- checksum) 



Comm_GetDeviceReply_Exit: 
'prevent device unavailable errcr 

If mriMain.CommDevice.PortOpen = True Then frmMain.CommDevice.PortOpen « False 'Cose port tf ocen 

frmMain.MousePointer = vbDefault 

On Error GoTo 0 'clear error status 

gbCommRepfyPending = False yeser pending nag 

gbCommBusy = False 'reset busy flag 

Exit Function 



Co mm_GetDeviceRep!y_ Error 

lErrorCode = Err 'return error code rc caller 

'"Resume 0 'Per tescng only 

Resume Comm_GetDe vice Reply_ Exit 
End Function 



Public Function Comm_ReadFirmwareVerston(DataStruct As DeviceDataStruct, IReturnError As Long) As 
Dim sOut As String, sChecksum As String, sin As String, lErrorCode As Long, r As String 

sOut a "Vv" 'this is the code for version number 

CreateChecksum sOut, sChecksum 'calculate a checksum 

sOut * sOut + sChecksum + "I" 'append checksum and ending string identifier 

If Not frmMain.CommDevice.PortOpen Then frmMain.CommDevice.PortOpen ■ True 

f rmMain. Com m Device. I nputLen 3 0 'clear input buffer 

frmMaiaCommDevice. Output = sOut 'send stnng to device 

r = Comm_GetbeviceReply(sln, lErrorCode) 

■ If lErrorCode = 0 Then 'comm was received 

r = ValldateChecksum(stn) 
. IfrTnan 

DataStruct.sFirmwareVer = Left$(sin, Len(sln) - 5) 'put string in global array 
Comm_ReadFirmwareVersion = True 'return success to cailer 

1 End If 

Else 

IReturnError ■ lErrorCode 
DispiayErrorMessage lErrorCode 

I End If 

End Function 



Public Sub DisplayCommError(SourceForm As Form) 

gbCommOK = False 

SourceForm.imgCommStatus.Picture ■ SourceForm.img Red Light 
SourceFormJblCommStatus ■ "No Device Found" 

'Play disconnect sound and show status visually 
Set properties needed by MCI to open 
With SourceForm.MMControll 

.Notify = False 

.Wait * False 

.Shareable * False 

.filename = App.Path + ^Pro b Detect Voice, wav" 

'Open the MCI Wave Audio device 
.Command = "Open" 
.Command = "sound" 
.Command - "close" 
End With 
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End Sub 



Public Sub DisplayCommOk(SourceForm As Form) 

'Piay connect sound and show status visually 
'Set properties needed by MCI to open 
gbCommOK = True 
With SourceForm.MMControM 

.Notify = False 

.Wait = False 

.Shareable ■ False 

.filename = App.Path + "\morsecode.wav" 

'Open the MCI Wave Audio device 
.Command = "Open" 
.Command = "sound" 
.Command ■ "sound" 
.Command = "close" 
End With . 

SourceForm.lmgCommStatus.PictLire * SourceForrnJmgGreenLight 
SourceForm.lblComm Status = "Device Ready" 

End Sub 



Public Sub DisplayErrorMessage(lErrorCode As Long) 
Dim sMSG As String 

■ Select Case JErrorCode 

Case ERR_COMMJTIMEOUT 

sMSG = "No response was received from the device to the command just issued. Remove the device from the communicator and 
H re-insert it to ensure that it is seated properly." 

Case ERR_COMM_CHECKSUM 

sMSG = "Data retrieved from the device is corrupted. This probably occurred during transmission. Please read the device again." 

Case ERR_COMM_BADRESPONSE 

sMSG = The device did not interpret the command property." 

Case ERR_NEWER_HOST_SOFTWARE 

sMSG = "The device was previously programmed with a newer version of this software. The data can not be retrieved." «■ vbCrLf + 
H vbCrLf * "Please obtain an updated version this software." 

Case Else 

sMSG * "An error was detected while communicating with the device. Please try again." + vbCrLf ♦ vbCrLf ♦ Error$(IErrorCode) 
End Select 

MsgBox sMSG, , App.ProductName + " Comm Error - " + CStr(IErrorCode) 
End Sub 
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Public Function GetDrugRefNumberQ As Integer 

'Find the index to the organ name being using in the global structure 
Dim i As Integer 

For i = 1 To UBound(gsOrugNames) 

^LCase(PAT_OATA.sDrug) = LCase(gsOrugNames(i)) Then Exit For 



GetDrugRefNumber = i return ref number to caller 
End Function 



Public Function GetOrganRefNumber() As integer 

'rind the index to the organ name being using in the cJobsi structure 

Dim i As Integer 
• For i = 1 To UBound(gsOrganNames) 

J N JM-Case(PAT_DATA.sOrgan) = LCase(gsOrganNames<i)) Then Exit For 

GetOrganRefNumber = i 'return ref number to catier 
End Function 



W dr V h^J^^T°n ,n A te ^ ret DosingData(DataStruct As DeviceDataStruct, ByVal sData As String, ByVal 
V* dCheckSumTally As Double, ByVal ICheckSum As Long, lErrorCode As Long) As Integer 

Parse apart the dosing data that is passed here and put into gtobai structure 

'Each dosing event is 2 bytes in length. 

'The checksum is passed here for comparison to the string. 

The checksum includes the pointer bytes which is why it is passed in. 

?l!?^ S Strin9 '- 4 ****** As ,nte 9 er - WByte As Integer, ICurrentDose Amount As Long 
Dim r As Integer, .position As Integer. ICount As Integer, tTemp As Long 
On Error GoTo lnterpretDosingData_Error 

F °iCounf = , |Coim 0 + L i en(SData) Sl6P 4 ' therB ar& 2 heX bytSS t0 * vety dose event 

iLowByte = Clntf&H- * Mid$(sData, Iposition, 2)) get first of the 2 byte hex value 
dCheckSumTally = dCheckSumTally + ILowByte 'add to checksum 

??J^ S " m J~V! dCheckSur "TaIly + IHiByte 'add to checksum 

If IHIByte = 255 Then 'indicates a dose change 

DataStruct.byteEventType(iCount) = giEVENT DOSE CHANGED 

d«mESE^^ «S Ln i ( ! L °yi Byte) ' 40 * T °° " conveft from m( to m * ttlis ' s * size change 

DataStruct.iEventData(lCount) - ICurrentDose Amount 

•? a ^f^ Ct " dEV !r tD ! le ° C0Unt) = C ^g<DataStruct.dEventDate(iCount - 1 )) 'get date from last dose 
t ms is the very first dose change 

I If DataStrucLdEventDate (ICount) = 0 Then 

| ^ DataStruct.dEventDate(iCount) - 1 

Etee _ 'this is a dose 

Data Struct.byte Event Type(iCount) = giEVENT_DOSE TAKEN 

DataStruct JEventData(i Count) * ICurrentDoseAmounf convert from mi to mg; this is a new dose size -hanae 
nTV ° t ^i mB ^ * 256 * ILowBvte *nd time is 10 minute interval! since first dose day 

— En 2* f taStWCt dEventDate(iCount) = Date Addfn-, ITemp • 1 0, DataStruct.dDeviceRefDateTime) 

- Next iposition 

DataStrucUEventData(O) = ICount 'put the total number of events in the 0 element of list 

dCheckSumTally = dCheckSumTally Mod 65536 
_ If dCheckSumTally = ICheckSum Then 
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InterpretDosingData * True 'return success to caHer 
Else 

lErTorCode = ERR COMM CHECKSUM 
End If 



I nt erpret Do sing Da ta_Exit: 
On Error GoTo 0 ~ 
Exit Function 

lnterpretDosingData_Error: 
lErrorCode = Err " 
Resume lnterpretDosingOata_Exit: 

End Function 



r 



Public Function ValidateChecksum(ByVal sData As String) As Integer 

'Look at the data stnng passed here and get the checksum from the 
'end of the string. 

'sDATA should be a string that was returned from the device. 

'The last char in the stnng is a termination char preceeced by 4 bytes of checksum. 

Dim sTemp As String, iByte As Integer, r As Integer, iposition As Integer 
Dim ICheckSum As Long, ICheckSumTaily As Long 
On Error GoTo ValidateChecksum^Error 

r ■ Len(sData) 
For iposition = 1 To r - 5 

iByte = Asc(Mld$(sData, iposition, 1 )) 
VSyfe * antC&t-r ♦ MidStsData. iposition, 2)) 

ICheckSumTaily = ICheckSumTaily + iByte 'add to checksum 

Next iposition 



ICheckSumTaily « ICheckSumTaily Mod 65536 

sTemp = + "0" + Mid$(sData, r - 2, 2) + MldS(sData, r - 4, 2) 
ICheckSum = CLng(sTemp) 

If ICheckSumTaily = ICheckSum Then ValidateChecksum = True 'pass success flag back to caller 

Val!dateChecksum_Exit: 
On Error GoTo (f 
Exit Function 

ValidateChecksum_Error: 

Resume Valid ateChecksum_Ex it 

End Function 



Private Sub InterpretErrorFlagsfDataStruct As DeviceDataStruct, ByVal iFiagsByte As Integer) 

'Break out the bits of the flags bytes passed here . 
'Put the results into the global arrays 

'if any flags exist, then set this to true 

If IFiagsByte Then DataStruct.bErrorsExist = True 

'Parse out Hags separately 
DataStruct.bErrorFatal = (iFiagsByte And 2) 
DataStructbErrorNonFatal = (iFiagsByte And 4) 
DataStruct.b£iTorDoseSize ■ (iFiagsByte And 8) 
DataStruct.bErrorMedRemaining = (iFiagsByte And 16) 
Data Stnjct.bErrorMemory Full = (IFiagsByte And 32) 
DataStruct.bErrorBrownOut = (iFiagsByte And 64) 
remaining upper 3 bits not used at present 

End Sub 
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Public Function Comm_ReadEntireMemoryContents(DataStruct As DeviceDataStruct, IReturnError aci. . 
Dim sOut As Stnng, sChecksum As String, sin As String. lErrorCode As Long, r As String ' AS L ° n 9) ' 

On Error GoTo Com m_ Read Entire M em oryContents_Error 

Erase DatalnMemory DataStruct 

sOut = "Rr" -this is the code for reading entire memcrs 

CreateChecksum sOut, sChecksum 'calculate a checksum 

sOut = sOut «• sChecksum + T acpentf checksum and ending stnng identifier 

If Not frmMain.CommDevice.PortOpen Then frmMain.CommDevice.PortOpen = True 

frmMain.CommOevice.inputLen = 0 'dear incut buffer 

frmMain.CommDevice.Output * sOut 'send string to c-wc» 

r = Comm_GetDeviceReply(sln, lErrorCode) 
- , f | 'Then 'csmm was recetved. Shouid be at least this many bvtes 

r = ValidateChecksum(sln) ' 
If r ■ False Then 

IReturnError = ERR_COMM_CHECKSUM 
Exit Function 
End If 



□ 



tz 



r = ParseMemoryContents(DataStruct, sin, lErrorCode) 'parse out the Jtnnc 
If lErrorCode Then * 
IReturnError * lErrorCode 
Exit Function 
End If 

Comm_ReadEntireMemoryContents = True 'return success to caller 
OataStruct.dLastDownioadOate » Now 
gbPatientDataNotSaved = True 'set this flag to true 

Else 

IReturnError = lErrorCode 
Exit Function 
End If 

r = Comm_ReadFirmwareVersion(DataStruct. lErrorCode) 
IflErrorCode Then 

IReturnError ■ lErrorCode 
End If 



Comm_ReadEntireMemoryContents Exit: 
On Error GoTo 0 
Exit Function 

Comm_ReadEntireMemoryContents Error 
IReturnError * En- 
Resume Comm_ReadEntireMemoryContents_Exit 

End Function 
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Pubiic Function Comm_SendResetClockAndBattery(IReturnError As Long) 

'Resets the device clock to an offset that represents 1:00am 
'ana 4 resets the battery timer to zero. 

Dim sData As String, sOut As String, sReply As String, sChecksum As String 
Dim r As Integer, lErrorCode As Long, iTemp As Integer 

iTemp * Clnt(Format(Now, "hh")) 

If iTemp = 0 Then iTemp * 24 'midnight 

iTemp = (Hemp - 1) • 6 - C alc number of 10-mmute cenoti * hows 

iTemp = iTemp + Clnt((FormatS(Now, "nn") - 5) / 10) •case number of 10-mm oenods in this hour 

sData = CStr(Hex(iTemp)) 

If Len(sData) < 2 Then sData = "0" + sData -ensure stnng ts always 2 bytes long 

sOut * "Kk" + sData 'add data siring to command 

CreateChecksum sOut, sChecksum 'catcutate a checksum 

sOut * sOut ♦ sChecksum + -r 'append checksum and ending stnng identifier 

Comm_SendDataToDevice (sOut) 'send stnng to comm port 

r = Comm_GetDeviceReply(sRep(y, lErrorCode) 

- If sReply = Then 'string was successfully interpreted by device 

Comm_SendResetClockAndBattery = True return success to caller 

- Elself sReply » "7" Then 'string was not interpreted properly 

IRetumError ■ ERR COMM BADRESPONSE 

- Else 

IRetumError = lErrorCode 
_ End If 

End Function 



Public Function Comm_SendCustomData(DataStruct As Device DataStruct, ByVal sLocation As Strina IReturn 

'There are 4 locations in the device, each containing a 16 byte string. * 
"There first location is usually reserved for Patient ID. 
'Any string can be contained in any location. 
'Data is taken from the global structure 

Dim sData As String, sOut As String, sReply As String, sChecksum As String 
Dim r As Integer, JErrorCode As Long, sCustomData As String 
Dim I As Integer, sTemp As String 

Determine the appropriate command for the location of the data to be stored. 
'There are 4 Ifefds in the device containing 16 characters each. In the original 
'device design, this was Intended to contain 4 sepeate pieces of information. 
'The client has now decided that some fields are too short and others are too long. 
'Thus, the fields are combined to be one string of 64 characters. 

'Data Structure Rev level ■ giLEN_R£V_DA TA STRUCTURE 

'Patient name = giLEN PATIENT NAME 

'ID = giLENJD 

'Drug a giLEN DRUG 

TX Center 'giLEN TX CENTER 

'Organ * giLENjORGAN 

'Create a 64 byte string from the various data elements to be saved 
T/j/s string identifies the format of custom information. If the format 
'changes in a future version, then this ID can be used to determine which 
'vension of the software saved the info to the device. 
sCustomData ■ gsREV_DATA_ STRUCTURE 

'Save the 2 dgit number that represents this drug. 

'To save space, a numerical index of the Organ name is stored in the device 
i = GetDrugRefNumberQ 
sTemp = CStr(i) 

If Len(sTemp) < 2 Then sTemp = "0" + sTemp 'force code to be 2 digts 

sCustomData - sCustomData + sTemp 'concatenate result to outbound stnng 

Save the 2 digit number that represents this organ 

'To save space, a numerical index of the Organ name is stored in the device 
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i * GetOrganRefNumber() L 36 
sTemp - CStr(i) 

sCustomData = sCustomOata + sTemp 

sTemp = DataStruct.sPatientID 
If Len<sTemp) > giLENJD Then 

^sTemp » sTemp ♦ Space$( S iLEN_ID - Len(sTemp)) name is too tfmr to <M rfle deseed ,e„g r ,, 

sCustomData = sCustomData * sTemp concatenate result to outbound stnng 

sTemp » DataStruct.sTxCenter 

If Len(sTemp) > giLEN_TX_CENTER Then 

^sTemp = sTemp ♦ Space$(giLEN_TX_CENTER - Len(sTemp)) „.me is :co snort to Wl tne eesignatea length 
SCustomOata = sCustomData ♦ sTemp co n car sna(9 result to outbouna stnng 

Ei STemp • sTemp ♦ Spaee$(giLEN_PATIENT_NAME - Len(sTemp)) name is too snort to «B the obsignate* length 
SCustomOata = sCustomOata ♦ sTemp -concarenare result to outbouno stnng 



'Assemble the string to be sent 

- Select Case sLocation 

Case DATA_BEGIN CUSTOM 1 

sOut = "Ww" 

sOata - Mid$(sCustomData, 1.16) 

Case DATA_8EGIN CUSTOM2 

sOut » "Xx" 

sOata = Mld$(sCustomData, 17, 16) 

Case DATA_BEGIN CUSTOM3 

sOut = "Yy- 

sData = Mid$(sCustomData, 33, 16) 

Case D ATA_ B E G I N_C USTOM4 

sOut * "Zz" 

sOata = Mld5(sCustomData, 49, 16) 
— . End Select 

'Since the device string is limited to 16 chars, ensure that only the 1st 16 chars 
or the stnng are sent. 

sOut - sOu! : + sOata - add data ^ to command 

CreateChecksum sOut, sChecksum 'calculate a checksum 

Smm f^nlt^l^ * T ap ? end ™<* ending stnng identifier 

Cornm J5endDataToOev.ee (sOut) 'send stnng to comm port 

r - Comm_GetDeviceReply(sReply, lErrorCode) 

- IfsReply = "5" Then 'string was successfully interpreted by device 

Cornrn_SendCustornData = True 'return success to caller 

- E'self sReply = ■?" Then string was not interpreted properly 

IRetumError = ERR_COMM BADRESPONSE 

- Else 

IRetumError = lErrorCode 

- End If 

End Function 



S3 
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DeviceDataStruct, IReturnError As Lono> 

Sends the dosing parameters from the giobal structure to the device *-Ong) 

Structure: "Ddttuuwwwxxyyzzmmss " 
'Response: 

'sm^tlo^T' ^ ^ UCkS Pe '™ mt * r ' s °< *>• «« «*" <™ 0 * 0*. (Max,mum dose size :s currently 

* fTJLUTZ ^ 10 \ mQ <:° nverSfCn ™»* value. Typical value with present medication fS 4 ticks per 10 milium* 

t mm ts Lockout Hours value. Number ot hours to orever.: dos;ng after a dose ,s taken P mtil ^ms. 

£J0Z r-^^f, CK ? W d,gtS (hSX) ecuaithe compliment value cf the two's compliment sum of the command r^r,^ 
J>. data. Tne ASCII values are simply added together in an 8 Pit sum then one is subtracted (moauto 25% COm ™ nd 

™« ^ ,nte ?= er ' SDat3 AS Strin9 ' s ° ut As Stnn 9- s Reply As String 
n m ,itV? eger ;J E ™ rCode As ^ng, sChecksum As String, i As integer 
Dim iLastintervaiSet As Integer 

On Error GbTo 0 

sOut * "Dd" p^ command in stnng 
'Get Dose Size in oump ticks 

sOuTSlVDaTa 8 " ^ = "°" * ^ ' MSun SWng * a '^ S 2 ^ 

ILastintervaiSet » 1 > 1:00 am js tne nf time for the flfSt dQse 
'Get Dose intervals in hours 

For i * 1 To giMaxDoseTimes max doses per day 



._. ** — 1 1 to* per a ay 

\trX?*"JL ~> ^ _ ' ln Gase of conversion error, reset temp value 

— ,f ^?^5^n b ,! d e? 0SeTime(i) * 0 Then ' a ne 9*« v ° number indicates no time was set 
S£ = inJS H ( S?? tW ^ ; dPresc "bedDoseTtme(l), -hh") 'convert fractional day to hours 
IData = IData - iLastintervaiSet 'this time is relative tot he last interval that was set 
change time to midnight 
If IData < 0 Then IData = 24 - Abs(IData) 
^LastlntervalSet = Formats (Data StructdPrescribedDoseTime(i), W) 'the next interval is reatative to the last one that is set 
soata = CStr(Hex(ipata)) convert value to a hex string 

SOU ^oSlVoal^ 6 " S ° ata = "°" + SData ' enSUrS * 8iWayS 2 tyteS l0ng 
. Next I 

'Get number of doses per day 

iOM • SO* * sD^a" = "°" + S ° ata ' BnSUre Stnn9 '* a ' WSyS 2 low 

'Get conversion value 

!° a ! a * ° 4/rN k m to case of error, reset temp value 

£21" SEJSfSJ 0 oseReso,ution > '^f cose rescue /mm 5/069/ micr 

sO^\oSl\oSa en SData = "°" + S ° ata e/7St/fe Sm " ff ' S *™ ys 2 >* es ' on * 
'Get Dose lockout hours 

IData = 0 - m case o/ error resef femp va/ue 

*>? f = < l , 2 t /° l ataStruct - sDoseLocko utHours) 'get lockout hour from giobal struct 

^ ata , = r5 Str{HeX(,Data)) ' conven vslu * ^ a hex stnng 

soT*sOrt + sQto n S ° ata = "°" * 80313 ' en5Ur * Stnn9 lS * iWayS 2 byt6S l0ng 

CreateChecksum sOut, sChecksum 'calculate a checksum 

sOut = sOut * sChecksum * T 'append checksum and ending string identifier 
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Comm.SendDalaToDevice (sOut) send smng to ccmm port 

r = Comm_GetDeviceReply(sReply, lErrorCode) 

lf S C 0 mm VL^l d * ' 5f " n » W3S ««c«sft*ffy interpreted by de^ce 

Comm.SendDosHigParams = True y ef£ , m success 7 0 

Eiself sRepiy = ~T Then ' Stnng was nct interpre(ed ' * 

IRetumError = ERR_COMM BAORESPONSE tea pmpen/ 

Else 

IRetumError = lErrorCode 
End If 



End Function 



Public Function Comm_SendSerialNumber(DataStruct As DeviceDataStruci iRAtumB^ * , 

Sends the serial number from the global structure to the device Uev.CeDataStFUCt, IRetumError As Long) As Integer 

Dim Str ic 9 ' S 5 U L AS Stm9 ' sRep,y As Strin 9. sChecksum As String 

Dim r As Integer, lErrorCode As Long 

aj±raKKBSST *A - - - • — 

ssarSf — jr- ■aesssL, 

r - Comm_GetDeviceReply(sReply, lErrorCode) 
"* ''SrZn 1 ?. 6 ! u '#™9W*ssuccessfu/ly interpreted by device 

" E « * Re f y 7. !5 en vvas nor interpreted properly 

IRetumError = ERR_COMM BADRESPONSE P^per/y 

— Else ~ 

IRetumError = lErrorCode 

- End If 

End Function 



P "s^a DarJ^ sData ' ^Converted As String) 

Stung Data from the device ts usually returned as Hex characters 

IT^I S / JMS n tf/fl h9n) t0 an ASCii st ™9 ™ d """" '« caller. 
Such stnngs are items like patient name, serial number, etc. 

Dim sTemp As String, I As Integer, iTemp As Integer 
On Error Resume Next 

sConverted « - > d9gr out any Q{d ^ 

- For i = 1 To Len(sOata) Step 2 

sTemp * Chr$(sTemp) 'convert value to ASCII 

Next i * sC °nverted + sTemp corner, afe ro existing stnng being built 



End Sub 
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Private Sub CreateChecksum(sOut As String, sChecksum As String) 

'The stnng m sOut* will be sent to the device by another procedure. Before it is sent. 

'this nmrerture eatriilato* a rha/>^..m ~ .* m . - _ 



- — — - o'.wH/w fjt viicuur tr. 

Y/)/s procedure caicuiates a checksum and returns it to the caller 
Return the ASCII representation cfthe checksum value. 

Dim i As Integer, ICheckSumTally As Long, iChecksumByteLow As Integer 

For i * 1 To Len(sOut) 'calculate checksum 

ICheckSumTally = ICheckSumTally + Asc(MidS(sOut i 1)) 
Next! ' ■ " 

iChecksumByteLow = ICheckSumTally Mod 256 

iChecksumByteHigh - (Checksum Tally \ 256 'not being using by the device 

sChecksum = Hex(iChecksumByteLow - 1 ) 'checksum is the 'ones complement value of a ftvo's complement checksum- 

value must always be 2 chars 

If Len(sChecksum) < 2 Then sChecksum = "0" * sChecksum place a leading Win front of checksum 

End Sub 



r 



Public Sub EstablishDeviceComm() 

"This procedure continues to try and establish communication with the Device 
'until it succeeds. When successful, control is returned to the calling procedure. 
"The purpose of this procedure is to allow the user to try cable changes, device 
movement etc. without having to continue pressing keys on the keyboard. 

Dim r As Integer, lErrorCode As Long 

Query Device: 

r * Comm_CheckComm(IErrarCode) 
If r <> True Then 

DoEvents 'allow other Windows events to be processed, so we don't lock up the computer 
Wait 1 \vaJt an additional amount of time before trying 

GoTo QueryDevice 'try comm again 
End If 



End Sub 



Function Commjnitialize Comm Port () As integer 

'Get the inital values from INI file and 
'Initialize device comm port settings 

Dim IReply As Long 

Const sSection = "Communications" 

'Gat the amount of time needed for a reply to be received from the device 

giDeviceResponseWait = Clnt(GetlN!Setting(gsApplniFileSpec, sSection, "Device Response Wait", "SO")) 
If giDeviceResponseWait < 25 Then giDeviceResponseWait = 25 'ser a minimum delay time 

If giDeviceResponseWait > 500 Then giDeviceResponseWait = 500 'damp upper limit 

frmMain.CommTimerJnterval = giDeviceResponseWait 'set up the timer 



'Get the comm port speed settings 

giCommPort = Clnt(GetlNISetting(gsApplniFileSpec, sSection, "Port", "1")) 

If giCommPort = 0 Then giCommPort = 2 'ser a default of comm. 2 if nothing is in the f.ie 

gsCommDeviceSettings = GetlNISetting(gsApplniFileSpec, sSection, "Settings", "2400,n,8,2") 
pnr/enr dewce unavailable error 

If frmMain.CommDevice.PortOpen = True Then frmMain.CommDevice.PortOpen = False 'close port if open 

frmMain.CommDevice.Settings = gsCommDeviceSettings 
frmMain.CommDevice.CommPort = CStr(giCommPort) 
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frmMam.CornmDevice.InBufferSize * 1024 


3 



frmMain.CornmDeviceJnputLen * 0 

CommJnrtiallzeCommPort = True return success to caller 



CommJnitializeCommPort_Exit: 
Exit Function 

CommJnitiaiizeComrnPort Error 

CommJnitiaiizeCommPort = Err • rewrn error f0 caffer 

On Error GoTo 0 

Resume CommJnitializeCommPort_Exit 
End Function 



Sub Device_OnComm() 

This procedure ,s called by the OnComm evenet of the comm control located on 
frmMatn. This is so that the cede can be shared between applications. 

Dim r As Integer, sTemp As String 
r = frmMain. Comm Device. Co mmEvent 



It r = MSCOMM_ER_RXOVER Then * 

'An overrun error occured. Ususaify happens when getting events 
Exit Sub 9 • 

End If 

it r = MSCOMM_EV_ EOF Then 'end of file flag received 

Exit Sub 'who cares. Happens during receipt of events 

end if 

tfr = MSCOMM_ER_BREAK Then 'break signal received 

Exit Sub 
End if 



lfr=30rr*40rr= 5 Then 'rts. xon xoff. CD error 

Exit Sub 
End if 



MsgBox 'Unexpected error occured with the device. Please try again. , 'Comm Event - • ♦ StrS(r) 



^7 
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End Sub 



Private Sub lnterpretScoreData(DataStruct As DeviceDataStruct, ByVai sData As String, ByVal iCurr^ntn* o • 

Ger score dara and p/ace mfo global structure. Seems that the pointer is 0 based V »CurrentDayPoi 

/ he vaiue ts from 0 to 4 doses taken per day. A vsiue of "S.HFF" means that the value 
Vs cleared and not set yet. 

Dim i As integer, sTemp As String, iTempPointer As integer 

iTempPointer = iCurrentDay Pointer + 1 Wltn the current day 

- For i = 1 To 1 4 get 14 aays of dst3 

sTemp = Mid$(sOata, iTempPointer +1,2) 'get score for this dav ( 2 bvte hex) 

DataStruct.sScoreData(i) = sTemp 'save score 

iTempPointer = iTempPointer - 2 

If iTempPointer < 0 Then iTempPointer =13*2 end cf circular buffer. Start at bottom 

- Next i 



End Sub 



Pti On^Ir ™* ^ n ^ rseMemo ^ Conten ^(DataStruct As DeviceDataStruct, sAHData As String, fErrorCode As Lo 

Dim i As integer, sDoseData As String, ICheckSum As Long 

Dim sTemp As String, sConverted As String, ITemp As Long, r As Integer, sCustomData As String 
Dim sLastlntervaffime As String, iStartingLocation As Integer 
ReDim sTempList(25) As String 

On Error GoTb ParseMemoryContents_Error 
'Get Clock 

'The device dock reports the number of 10 minute intervals that have passed since 1 am on 
'the morning of the first dose. Thus, calculate when the first dose occurred for later use 

sTemp = -&H- + "0" + Mid$(sAUData, DATA_BEGIN_CLOCK + 2, 2) + Mid$(sAHData, DATA BEGIN CLOCK. 2) 
calculate back to the date and time the clock should have started. 
DataStruct.dDeviceRefDateTime * CObl(DateAddrn", -(CLng(sTemp)) • 10, Now)) 
DataStrucUDevicetnitDate = CLng(DataStruct.dDeviceRefDateTime) 

'Get Battery Change Timer 

s D T :?r B EG,;^ + * ♦ 

ITemp = CLng(sTemp) / 6 'convert To hours (there are 6 "ten-minute* intervals in one hour) 
DataStruct.sBatteryChangeTimer = Format$(CStr(lTemp / 24), -##0.0 days") •convert to days and store it 

'Get Dosing Event Data 

S rl??f orS!» + ~ * Mid$ < sAIIOata . DATA_BEGIN_COMPLIANCE_POINTER + 2, 2) + Mid$(sA!IData, 
DATA_BEGIN_COMPLIANCE_POINTER, 2) 'get pointer 
ITemp » CLng(sTemp) 'convert hex value to a long vaiue 

If ITemp Then sDoseData = Mid$(sAIIData, DATA_BEGIN_COMPLIANCE_DATA, (ITemp - 132) ■ 2) 'get stnng 

'Get Compliance Checksum 

S T! m f 1ST.* ~ + MW 5(«A«Data t DATA_BEGIN_COMPLIANCE_CHECKSUM + 2, 2) ♦ Mid$(sAIIData 
DATA_BEGIN_COMPLIANCE_CHECKSUM 2) 
ICheckSum = CLng(sTemp) 

ff r ^fS!X ^ mP ' ,CheCkSum ' ^rrorCode) parse out the events and p,ace in global structure 

G0T0 ParseMemoryContents Exit 
End if 

'Get Patient Score Data 

sTemp = Mid$(sAIIData, DATA_BEGlN_SCORE, 28) 
parse the 14 days of dosing and store in gicbal structure 
If Len(sTemp) > 0 Then 

ITemp = CLngf&HO" ♦ Mid$(sAIIData, DATA_8EGIN_DOSE_SCORE_DAY_POINTER, 2)) 
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Get Error Flags 

sTemp*Mid$(sAIIData, DATA_B E GIN_ERROR FLAGS 2) 

If Len<sTemp) > 0 Then Interpreter as Dataitruct, Va i( sTemp) 

'Get Medication remaining in device 

2 ' 2 > * Mid, ( sA„Oa b , DATA_BEGIN_MED REMAINING 2) 
a uou-^ng(sTemp / 40) 100) + mg 'pump na<s are fixed at 40 permMiihter (100 mg per mi) 

'Get Dose Lockout Hours 

sTemp = "&H0" + Mid$(sAIIData. OATA BEGIN OOSE LOCKOUT HOURS 5* 
DataStruct.sDoseLockoutHours = CStr(CSn^sfem P )) OCKOUT - HOURS * 2 > 

'Ger Doses per day 

sTemp = "&H0" ♦ MldS(sAIIData, DATA BEGIN DOSES PER DAY r>\ 
DataStructiDosesPerOay = Clnt(sTemp~) n^dos ES_P ER_DAY, 2) 

'Get Dose Resolution 

sTemp * 14 HO" + Mid$(sAIIData, DATA BEGIN DOSE CONVERSION *>\ 
DataStnict.sDoseResclution = CStr(CSng(sTemp)) * ' J 

'Ger Dose intervals 
sLastlntervamme * "1:00" 

'Get Dose interval 1 (alarm time) 

ff V,7(^,mp)^:n Mil,J(SA ' IData ' DATA - B <*IN_DOSEJNTE R VAL1. 2) 

lJ^^rT^ ,(s7emp) - sUsUnte ™ m ™> ** "« * « r. 00 am 

E J3ataStruet.dP res cribedDo S e-nme(1) = TimeValue(sTemp) 

^ataSlruet.dPrescribedDoseT.meCI) • -1 Ws va;i/e , n< ,, cafes «, a , „ 0 fi<7Ie W3S , 8CelVerf 

'Gar Dose Interval 2 (a/a/m tfme; 

fvaT(sT\mp H ) 0 T^" W$(SAIIData ' 0ATA - BEG,N -°OSE_INTERVAL2, 2) 
^alaSfmct.dPrascribedDo S eTime(2) = TimaValue(sTemp) 

DataStructdPraacribedDoseTimep) = -1 Ws md;cates f/la , n0 ft(JJe w „ 

'Ga( Dose Interval 3 fatemt rtmej 

MW^^^™ 0 **' DATA,BEGIN.DOSEJNTERVAL3. 2) 

sLastlntervamme) M dose ,s re/aaVe to ,.0 . 

Ei DataStruct.dPrescribedDoseTime(3) = TimeValue(sTemp) 

£n DataStnict.dPrescribedDoseTime(3 ) = .1 ms vafue mdicatss tnat no Ume was reCff/V#d 

'Ger Oose //i/erva/ 4 fa/a/m tf me ; 

Tf VaTsTVmpT^ DATA.BEGIN.DOSEJNTERVAL4. 2) 

£s^^ sLas,ntervamme) ». ft* tfose is reiative to 1:00 am 

^DataStmct.dPrescribedDoseT t me(4) = TimeValue(sTemp) 

En DataStn J ct.dPrescribedDoser,me(4) = -1 ,i:is value mdicatss tnat no vme was received 



Else 
Ds 
End If 



'Get Dose Size 
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sTemp = -&H0- + Mid$(sAIIOata, DATA BEGIN_DOSE SIZE 2) 
If IsNumeric(sTemp) Then 

DataStruct.sOoseSize = CStr(CSng{sTemp) / 40 • 1 00) convex from mg to ml 
Else 

DataStruct.sOoseSize = "" 
End If 



'There are 4 fields in the device containing 16 characters each, in the original 
'device design, this was intended to contain 4 seoeate pieces of information 
'The ciient has now decided that some fields are too short and others are too long. 
'Thus, the fields are combined to be one string of 64 cnaracters. 

'Patient name - giLEN_PATIENT_NAME 

'ID = giLENJD 

'Drug = giLE\'_DRUG 

TX Center = giL£N_ TX_ CEVTSP 

'Organ « giLEN_ORGAN 

'Send a message to the user if the revision /eve/ is higher than the one 
'this software is using to send custom data to me device. 

'The user must upgrade to the current version is order to get accurate custom data. 
'This code should also handle any prevtous versions mat savec data to the device. 

'Get Custom string 1 

sTemp ■ Mid$(sAilData, DATA_BEGIN_CUSTOMl , 32) 
ConvertHexStringToAscii sTemp, sConverted 
sCustomData = sConverted 

'Get Custom string 2 

sTemp * Mid$(sAIIData, DATA_BEGIN CUSTOM2, 32) 
ConvertHexStringToAscii sTernp, sConverted 
sCustomData = sCustomData ♦ sConverted 

'Get Custom string 3 

sTemp * Mid$(sAIIData f DATA_BEGIN CUSTOM3, 32) 
ConvertHexStringToAscii sTemp, sConverted 
sCustomData ■ sCustomData + sConverted 

'Get Custom string 4 

sTemp ■ Mid$(sAlIData, DATA BEGIN CUSTOM4, 32) 
ConvertHexStringToAscii sTernp, sConverted 
sCustomData = sCustomData + sConverted 



'Pull apart the 64 char stnng into its sub-components 

'Get the custom data structure revision levei that was previously saved to the device. 
'Note: this is not the same as the major and minor versions of the host software. 
iStartingLocation = 1 

sTemp m Mid$(sAIIData, iStartingLocation, gILEN REV_DATA STRUCTURE) 
ConvertHexStringToAscii sTemp, sConverted 

'The device custom data was apparently saved with a newer version of software than this one. 
If Val(sConverted) > gsREV_DATA STRUCTURE Then 

lErrorCode * ERR_NEWER HOST SOFTWARE 

GoTo ParseMemoryContents Exit ~" 
End If 

Determine the real name of the Drug by the reference number received from the device 
iStartingLocation * iStartingLocation ♦ gilEN REV DATA STRUCTURE 
sTemp = Trim(Mid$(sCustomData, iStartingLocation, giLEN DRUG)) 
r=Val(sTemp) 

If r > 0 And r < UBound(gsDrugNames) Then DataStruct.sDrug = gsDrugNames(r) 

Determine the real name of the Organ by the reference number received from the device 

iStartingLocation = IStartingLocation * giLEN_DRUG 

sTemp « Trim(Mid$(sCustomOata, iStartingLocation, giLEN ORGAN)) 

r = Val(sTemp) " 

If r > 0 And r < UBound(gsOrganNames) Then DataStruct.sOrgan = gsOrganNames(r) 

IStartingLocation = iStartingLocation * giLEN_ORGAN 
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DataStruct.sPatientIO = Trim(Mld$(sCustomOata, iStartlngLocation, giLENJD)) 
iStartlngLocation * IStartingLocatlon + giLENJD 

DataStruct.sTxCenter = Trim<Mid$(sCustomData, iStarting Location, giLEN_TX_C ENTER)) 
iStartlngLocation = iStarting Location * giLEN_TX CENTER 

r = ParseOelimString(Trim(MidS(sCustomData, isTarting Location, giLEN PATIENT NAME)), V. sTempListO) 
DataStructsPatientLastName = Trim$(sTempList(1 )) " 
DataStruct.sPatientFirstName = Trim$(sTempList(2)) 

'Get Serial Number 

sTemp = Mid$(sAIIData, DATA_8EGIN SERIAL NUMBER, 20) 
ConvertHexStringToAscii sTemp, sConverted 
DataStnjct.sSerialNumber = Trim(sConverted) 
ParseMemoryContents = True send success to caller 



Parse Mem oryContents_Exit: 
On Error GoTo 0 
Exit Function 

ParseMemoryContents_Error: 

'force a checksum error here because any type of error is likely due to a checksum problem 
lErrorCode = ERR_COMM_CHECKSUM 
Resume ParseMemoryContents^Exit 

End Function 



Public Sub PoUDeviceContinually(SourceForrn As Form) 

'777/s procedure continues to try and establish communication with the Device 
'until it succeeds. When successful, control is returned to the calling procedure. 
'The purpose of this procedure is to allow the user to try cable changes, device 
'movement, etc. without having to continue pressing keys on the keyboard. 

Dim r As Integer, bProcedurelnProgress As Boolean, lErrorCode As Long 

If bProcedurelnProgress Then Exit Sub 

If gbCommBusy Or gbCommRepryPending Then Exit Sub 

bProcedurelnProgress = True 'prevent recursive calls to this procedure 



E 



Query Device: 

DoEvents 'allow other Windows events to be processed, so we don't lock up the computer 

If gbCommOK = True Then 'no need to poil as often if device was working the last time we checked 

Wait 5 'wait an additional amount of time before trying 
Else 

Wait 0.05 'poll faster until a good comm is made 
End If 

If Not gbCommBusy And Not gbCommReplyPending Then 'poll only if port not busy 
If gbKeepPollingDevice = False Then Exit Sub 

SourceFormJmgPoWng. Visible - True 

SourceFcrmjmgPoliing.Refresh 

r « Comm_CheckComm(IErrorCode) 

If gbKeepPollingDevice = False Then Exit Sub 

- If r ~ True Then 'comm is working 

'display status has not yet been updated 

If Not gbCommOK Then DisplayCommOk SourceForm 

- Else comm is NOT working 

'display status has not yet been updated 

If gbCommOK Then DisplayCommError SourceForm 

- End If 
End If 

Wait 0 05 'allow polling icon to be viewed 
If gbKeepPollingDevice = False Then Exit Sub 
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SourceFormjmgPolting. Visible - False 
End If 9 ^ " W " reCe ' Ved 10 " Wake command *« was sen. to the DosPro device. ■. . -CommumcaUon Error 



'flag has not been reset yet 

If gbKeepPollingDevice Then GoTo QueryOevice try comm again 
bProcedurelnProgress = False 



'allow future calls to this prcedure now that we ars finished 



End Sub 



'If another command is in progress then watt till it is done 

•tI*?* 9 * T been reSet after this dei *y- *•« exit !°oo anyway 
This prevents lockups inside this loop in case there is a ambtom ZLi. 
dGoAheadTime = DateAddrs". 5, CDbl(Now)) P elsewhere 

~~ D °D^vente COmmBUSY ° F 9bCommRe P ,vPendin g 
Do Events 
Do Events 

If CDbl(Now) > dGoAheadTime Then Exit Do 
— Loop 

gbCommBusy » True 
'if comm partis not open then open it 

fm£J^ 77160 f ""Main.CommDevice.PortOpen = True 

£S£ E r 2 eV 08 « PUtL<8n = 0 'clear input buffer ? 

frmMafn.CommDevice.Output = sOut 'send string to device 

End Sub 



'set busy flag (gets reset if timeout or reply not received) 



Private Sub SetCommTimer(iTime As Integer) 

Thl fm^n^ r J et9rm !Z e l wt L etherQ rnot a reply has come back from the device 
'k7s^^V^ m l fme ^ »*sP*sse* "Moat the timer being reset 
xeset the timer to the interval passed in. then start it 
Set the comm busy flag, then return to caller 

rnr5 mCr *, E ? ab,fid = Fa,5e ' dsabi * timerwhile resetting It 

frmMain.CommTimer.interval = iTime 'set interval 

g^CommTimerExpired » False reset timer expiration flag 

frmMain.CommTlmer.Enabled * True •start timer 



End Sub 
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Comm.bas - SetCommTimef 



Attribute VB Name: 
Option Explicit 



"modPrintlng" 




Public gbPrintFormLoading As Integer 
Pubfie gbPageNumberSuspend As | Tmeger 




// giTota!PnmFages > 7 77)e7> 
trmSetecTPages.Show MOD* 
Select Case gsSelectFhntPages 
Case TV/" y 

frmPrintMousePointer = vbHouralass 
gbPrintSpoolinglnProgress * True 
frmPrint.vsPrinterl .Action = paPrintAII 
_ gbPrintSpoolinglnProgress = Fal™ 



'there is more than one page :c print 



'print ali pages 



Case 'Page' 

^P^tMousePointer^vbHourgfass 
&PnntSpoolingtnProgress = True 
frmPrintvsPrintert . Action = oaPnntP*^ . 
9>PnntSpooting { nProgrl S s ? Fa Z 9 P ™' ctJ ™< P*9° only 

Case - 

'nothing to do 

eJSS^^^^ 99 = Fa/se 

BS Lp^n f t g9Si 2 0epase * ™t a picture 

^™rMQUsePomtar=voHourgiass 

gbPnntSpooiinginProgress = True 

frmPnnt.vsPrinten. Action = oaPnntAH , 

QoPrintSpoolin&nPrcgress * Fa™ 9 *" pages 

End If 
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Prfnling.bas ^ Printer^Previe^ 



frmPrint.btnClose.Enabled = True 
End Sub 



Evrf SuS s «° • 'Vie aacve 

ZTJ h ° nzontal on the page 

cPrinter.FontSize » 12 
cPrinter = - .... ,. 

cPrinter.PenStyle « o P V?' ab0Ve 
cPrinter.PenWidth = ,o 2=tf0 ' 
cPrinter.PenColor « iPenColor •! . W "" h 

ePrin.er.X2 = I l^T^^ ' **> 

s vvram / 2) ♦ (cPnnter.PageWidth • 0.25) 
cPrinter.YI » cPrinter.Cun-entY 
ePrinter.y2 = cPnn t er.c UTO mY + S0 



cPrinter.Draw ■ 2 
End Sub 



2=recrangfe 



Dim fFomstz. As Sing(e . ICoCn, A, n ?n t ^? teF0rmat As ■»» sTabte As String. sUs, As String 
On Error Resume Next 

'Prepare progress Quaes 
With frmPrint ^ 

•pnlProgress.FloodPercent = 0 

.pn ProgressContainer. Visible * Tru* 

InitPageProperties 
fFontSize = 10 



WRh frmPnntvsPrinten 
•XI » 700 

.X2 = frrnPrint.vsPrinten X1 * . 

-Y1 * 500 nnre ".*1 + frmPnnt.picLogo. Width 

-Y2 ■ frmPrint.vsPrinteri vi ^ # « . 



'Print tnformavon Header 



WO 99/35588 



PCT/US98/22830 



Printing.bas - PrintAHPatientsSurnrru 




.FontName a "Arial" 
.FontBold a True 

•FontS.ze = (FontSiz. • ,. 6 ""tTZ Z?" *"< 
.Fontltalic = Tme ' sze 

frmPrint.vsPrinten = "All Patient', - 
.FontSize - tFontSize M 2 *"* 
.Fontltalic = False *««>W*z« 

frmPrint.vsPrinten = frmAIIPatienK « a Ane 

frmPrint.vsPrinten = -Sate ?J^? b °0"taToVitw.Ttxt * - with - * frmAllPatients Labn/nm 



frmPrint.vsPrinten « - 
.TextAlign = taCenterTop 
• FontBold = False 
.TableBorder ■ tbNone 
.FontStee = fFontSize • 1 1 
•Table a sTable 

frmPrint.vsPrinterl a 
frmPrint.vsPrinten = - 
.UneSpacing ■ 90 
-TextAlign * taCenterTop 
End With P 



skip a Hne 



set font size 
'send out :ao/e 

'skip a Hne 
'skip a Hne 
' % of current font 
center text 



'Print the report Data 

With frmAHPatients.grid 
.Row » 0 
.Col a 0 
aUst = .Text 
•Col » 1 

sUst -sUsf-p + .Text 
.Col * 2 

»Ust»sUst + T + . Text 
.Col * 3 

sUst * sUst ♦ -r + Text 
.Col«4 

sUst » sUst + T * Text 
End With 

sTable « sTableFormat + sUst 

Wtth frmPrint.vsPrinter1 
.TableBorder = tbBottom 
.FontSize » 10 
.FontBold * True 

iSIK,,.. 

End With 



ICount = .Rows - 1 

SUst* - 

" FO RoV«? iCOUn, '^"/»*»«».^ 
.Col * 0 

slist a sList + .Text 
.Col * 1 

sUst * sUst Text 
.Col = 2 

sUst a s ust +T + . Text 
.Col » 3 

sUst « sUst + "j" ♦ .Text 
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Pnnling.bas - PrintAIIPatienlsSumm; 



.Col » 4 

sUstn S List* T+ . Text + . 



frmPrint.pnlProgress.FloodPerepnf - n , 
End With 

sTable = sTableFormat + sList 
With frmPnnt.vsPrintert 
-FontSize = (FontSize ■ 0.9 'set fort a v s 

.TextAlign - taCenterTop " ° fCu ™<*>* 
•TableBorder = tbNone 

End T ^ = STab ' e ■"■-'out™. 



On Error Goto 0 



End Sub 



'turn off progress indicator 



Private Sub PrintPatientDosingReportQ 



Dim J As Integer fErrorCodf* a 
On Error Resume Next 

"KleExistsCcovers": ^ ^ a cover ^ chosen 

S0P*9eNumberSuspend=Tfve 
L °a<tPictureToPrint8rControiTn,~ 
inftPageProperties ™ ntr0! Twe 9*t cover 

fr ™PrintvsPrinteri.Action = d 
, gbPageNumberSuspeZ * Paise * new ^ e 

' End it 
' Endtf 

'Prepare progress guace 
WithfrmPrint 

pnJProgress.FloodPercent = 0 
•pn ProgressContainer. Visible * True 

End P mn° greSSCOnta,nerRefresh 

InitPageProperties 
fFontSize * 10 



With frmPrintvsPrinteri 
X1 * 700 

; X2- frmPnnt.vsPnmerl.Xl * frmPrint.picLogo.VMdth 
.Y2 = frmPrint.vsPrinten Y1 * r~~n • * • 



-flrtrf Information Header 

SSTh a E!, N Q umberSuspend 35 ™« 

Wrth frmPnnt.vsPrinter1 
■FontName = "A rial" 
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Priming, bas - PrintPatienlDosingRa 



* 1.6 set font size 



.FontSize = fFontSize ■ 
.FontBoid = True 
■ Fontltalic = True 
TextCoior » 

.TextAlign * taCenterTop '^ ntarta , 
.CurrentY = 1440 ■ 1 -™! f U5ed in Paragraphs 

frmPrint.VsPrinterl = "Pat^n * 0n mtsiine 
.FontSize = fFonKize • 2 fc^" >™ "*»• 
.Fontltalic = False ' '° nf srzs 

frmPrint.VsPrinterl = pat data 

sTableFormat = "<1400|<2800|<14ooi<2bod- 

With fhriPrintvsPrintert IOr9an + ' + p AT_DATA.sOrgan * r 

frmPrint.vsPrintert = 
TextAlign = taCenterTop 
•FontBoid a True 
.TableBorder = tbNone 
•FontSize ■ /FontSize * 1 t 
.Table * sTable 

frmPrint.VsPrinterl = 
frmPrint.VsPrinterl = ~* 
.LineSpacmg » 90 
TextAlign = taCenterTop 



'skip a line 



set font size 
'send out table 

'skip a tine 
'stop a line 
'% ot current font 
'center text 



* " Events T yP es Shown: - 

bltemChecked^True 
End If 

bltemChecked = True ^ nan 9 es 
End!? mCheCked = True 



— If Not bltemChecked Then 

sLfet- s Ust + -None" 

— end if 

frmPrinLvsPrinteii = - 
•TextAlign = taCenterTop 
.FontSize « FontSize • 0 9 
frmPrint.vsPrinteri = sUst 

— end if 

End With 



'skip a line 
set font size 



'Print the report Data 
frmPrint.vsPrintert * - 

frmPrint.VsPrinterl. TextAlion - t*r* . * Une 
sLIst = - 

- Forl = 1ToiCount pu**. in ^ 



£>1 
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p nntfng.bas - PrinlPaticnlDosingRt 



.Row = i 
.Col * 0 

sList = sUst + .text 
.Col = 1 

sList* sUst + -("♦. Text 
.Col = 2 

sUst « sList * M r + Text 

.C0l « 3 Xf 

sUst a sList *r+. Text 
.Col = 4 

sUst a sUst Text 
.Col = 5 

sList = sList + "|" + .Text + M - M 



jssssassaa'--.-". 

End With 

sTable a sTableFormat * sList 
With ftmPrirtt.vsPrinten 

•FontSize = fFontSize • o 9 
.UneSpacing a 80 * 5 * r * 

•TextAlign^taCenterTop -^^^ 



On En*or GoTo 0 

frmPrint.pnlProgressContainer Visible - Fale 
^PHnt-pnlProgressContainer^efresh" 



'torn off progress indicator 



End Sub 



S o^ A ^ entSHeade ^Ta b , eF onnat As string, 
D ' m ,P ' eVFOn, AS *■* bp -°°« as Boc,,, 5Ust As string 
"Wont = frmPrint.vsPrinterl .FontSize 

Ssasassr--- 

SList * *" 



.Row » 0 

.Col » 0 

sList « sList ♦ .Text 
.Col * 1 

SList -sList + T*. Text 
.Col » 2 

sUst « sList + "j- ♦ .Text 
•Col » 3 

**» sList + v. Text 
.Col » 4 

sList a sList + T ♦ .Text 
.Col» 5 

sList = sList + T + Text + -•• 
End With ' ext+ • 



frmPnnt.vsPnnten.TableBorder a tbftn»„ m 

^PH n I VS n rinter1 - FontBo,d 2 True 
frmPnnt.vsPnnter1.Table = sTable 

frmPrint.vsPrinten a - Sentf owf *eaoer 



^i 7 
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Printing. bas - PrintDosingEventsHfcaaer 



'Put setting back to previous ones, 
frmPrint.vsPrinterl. TableBorder = tbNone 
frmPrint.vsPrinteii.FontSize = fPrevFont 
frmPrint.vsPrinterl. FontBold = bPrevBold 

End Sub 



Public Sub LoadPictureToPrinterControl(ByVal bCover) 

'Set the pnnter control to size a picture and copy 
"picture from holding area to the pnnt preview control, 
if the picture to be displayed is a cover, 
'tnen the bCoverfJag should be set to true by caiier. 
'otherwise it is assumed to be a border. 

Dim iPaperWidth%, iPaperHeight 0 *, iNonPrintWIdth 0 *, iNonPrintHeight% 
frmPrint.vsPrinterl .PhysicaiPage » True 'set physical page to paper dimension 

iPaperWidth = frmPrintvsPrintert .PageWidth 'determine size of paper 
iPaperHeight = frmPrint.vsPrinterl .Page Height 

frmPrint.vsPrinterl. PhysicaiPage = False ' return printer to phntabie area 
iNonPrintWIdth = (iPaperWidth - frmPrint.vsPrinterl .PageWidth) / 2 
iNonPrintHeight = (iPaperHeight - frmPrint.vsPrinterl .PageHeight) / 2 

If iNonPrintWIdth < 350 Then iNonPrintWIdth = 350 'make a minimum margin 
If iNonPrintHeight < 350 Then INonPrintHeight = 350 make a minimum margin 

frmPrint.vsPrinterl .X1 = iNonPrintWIdth 

frmPrint.vsPrinterl .X2 = frmPrint.vsPrinterl. Page Width -INonPrintWIdth 
frmPrint.vsPrinterl .Y1 = INonPrintHeight 

frmPrint.vsPrinterl .Y2 ■ frmPrint.vsPrinterl. Page Height - iNonPrintWIdth 
' frmPnntvsPnnteri .Draw = 2 'picture holder only 

frmPrint.vsPrinterl. Picture = LoadPicturef graphicsr & "deco.wmf") 

End Sub 



Private Sub lnitPageMargins() 

'Set margins 

'Margins don't seem to set properly until the next page is created. 
'That's why they can be set only once before pnnting begins. 



frmPrint.vsPrinterl .MarginTop = 1350 
frmPrint.vsPrinterl .MarginBottom = 1 500 

frmPrint.vsPrinterl .MarginLeft = 1725 
frmPrint.vsPrinterl .MarginRight = 1700 

End Sub 



top margin 
'bottom margin 

'left margin 
'hght margin (from right edge) 
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Printing. bas - InilPageProperties 

_ ___________ ^ 



Private Sub lnitPageProperties() 

'Reset margins for text and initialize other items 

frmPrint.vsPrinterl .Line Spacing = 1 00 '100% of current font 

'Set the normat attnbutes here 



frmPrint.vsPrinterl .TextAiign ■ 0 set centsnr.g back to normal 

End Sub 



Private Sub PrintPageDateQ 

'Print Date 

Dim ITextHeight As Long, ITextWidth As Long, sTextS 
'pnnt date for the above tabs oniy 

'Rather than using TextAiign property, text is centered here using this method 
'to ensure page centenng regardless of margins or paragrapn settings 
InilPageProperties 

frmPrint.vsPrinterl. Font Name = "Ariat" 
frmPrint.vsPrinterl. FontSize - 8 

sText « "Printed: * + Date$ ♦ * with " + App .Title + " software." 
frmPrint.vsPrinterl .Measure » sText 'set string to measure 

ITextHeight * frmPrint.vsPrinterl .TextHei 'get text height 
ITextWidth = frmPrint.vsPrinterl .TextWid 'get text width 
frmPrint.vsPrinterl. CurrentX = (frm Print. vsPrinterl .PageWidth - ITextWidth) / 2 

If frmPrint.vsPrinter1 .CurrentY < 1 3000 Then 

frmPrint.vsPrinterl .CurrentY = frm Print. vsPrinterl .Page Height - (frmPrint.vsPrinterl .MarginBottom + (2.5 * ITextHeight}) set line to ver, 
V oortom 
Else 

frmPrint.vsPrinterl. CurrentY = frmPrint.vsPrinterl .PageHeight - (frmPrint.vsPrinterl .MarginBottom + (0.1 * ITextHeight)) 'set line to verv 
W bottom 
End If 

frmPrint.vsPrinterl » sText 



sText a "Copyright 1998 by SangStat Medical Corporation" 
frmPrint.vsPrinterl .Measure * sText 'set stnng to measure 

ITextWidth = frmPrint.vsPrinterl .TextWid -get text width 
frmPrint.vsPrinterl .CurrentX = (frmPrint. vsPrinterl .PageWidth - ITextWidth) / 2 
frmPrint.vsPrinterl ■ sText 

End Sub 



Public Sub PrintPageNumberQ 
'Pnnt page number if check box is active on form 

giPrintedPageNumber « giPrintedPageNumber ♦ 1 'increment page number for next time 
If gbPageNumberSuspend = False Then 
frmPrint.vsPrintet1 .HdrFontSize ■ 8 

frmPrint.vsPrinterl .Footer = "JDosing Report " + P AT_D ATA. s Patient La stNa me ♦ ", " ♦ PAT_DATA.sPatientFirstName ♦ ": " + 
► PAT_DATA.sPatientID ♦ " Page " + CStr(giPrintedPageNumber) 
- Else 

frmPrintvsPrinterl .Footer = "" 'must pnnt a blank footer otherwise old page # will show 
_ End If 



End Sub 



■70 
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Printing, bas - Refresh Pre view 



Public Sub RefreshPreviewQ 



54 



Static bRefreshPreviewIn Progress As Integer 
prevent recursive calls to here 
If bRefreshPreviewlnProgress * True Then Exit Sub 
If gbPreventPreviewllpdates Then Exit Sub 
bRefreshPreviewlnProgress ■ True 

frmPrint.MousePointer = vbHourglass 
frmPrint.HScrolH. Enabled = False 
frmPrint.HScrolH .Refresh 
frmPrint.HScrolH .Value = 1 
Do Events 



On Error GoTo 0 

frmPrint.btnRefresh.Enabled * False 
frmPrint.btnRefresh.Refresh 



'reset error processing 



frmPrint.btnPrintNow. Enabled = False 
frmPrint.btnPrintNow.Refresh 

frmPrint.btnClose.Enabled * False 
frmPrint.btnClose. Refresh 

frmPnnt.btnFormaLEnabled « False 
frmPrint. btnFormat. Refresh 
Do Events 



'disable burtons until preview build is complete 



giTotalPrintPages s 0 
giPrintedPageNumber ■ 1 



'reset the page counter 



frmPrintvsPrinierl .Preview = True 'print to screen 

frmPrint.vsPrinter1.Footer = - 'Ct*a?to 9 £™ 

S^'SS ^T™ = ' fontn *™ goes here' 'Controls footer also 
frmPnntvsPnnterlMdrFontSize = ?? 'Controls footer also 

'Send information to the preview screen 

'Initialize print job 

InitPageMargins 



if gbPrinterErrorDetected Then GoTo RefreshPreview.Exit 
frmPrint.vsPrinterl .PreviewPage * 1 1st p3ge 

frmPrint.vsPrinten .TextAlign * 0 'left align text 

m Call LoadPictureToPrinterControffFalse) 
Select Case gsActive Form Name ' 

— Case "frmPatlentSummary- 

— Case "frmAIIPatients" 

Call PrintAIIPatientsSummary 

_ Case "frmPatientDosingReport" 
Call PrlntPatientDosingReport 

End Select 

PrintPageDate . p/Jflf date foria$t reCipe 

frmPrint.vsPrinter1 .Action = paEndOoc E\'D DCC 

frmPrint.vsPrinterl. Visible = True 



7/ 
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Printing. bas - RefreshPreview 



frmPrint.HScrolM .Max = giTotalPrintPages 

R e fre sh P revi e w_ Ex it: 

frmPrint.btnClose.Enabled ■ True 
Do Events 

bRefreshPreviewlnProgress = False 

frmPrint.btnPrintNow. Enabled = True 
frmPrint.MousePointer = vbDefault 
Do Events 

End Sub 



enable buttons 

allow future cails to this procedure 



Public Sub SetPreviewSize() 
Dim bHeightlimit%, fTemp As Single 

frmPrint.MousePointer - vbHourglass 

frmprint. Re fresh a refresh of the form causes controls inside a frame to disaccear 
frmPjint.vsPnnterl . Visible = False 
frmPrint.vsViewPortl .Visible - False 
Do Events 

If (frmPrint.vsPrinter1 .PageHeight / frmPrint.vsPrinterl .PageWldth) > {frmPrintvsViewPortl .Height / frrnPrint.vsv1ewPort1 .Width) Then 
V bHeightUmit ■ True 

• Select Case frmPrintoptZoom(O). Value 

Case True 'full page view 

I ,f bHeightUmit = True Then 'there is a height restriction in the viewport control for this orint onentation 

frmPrint.vsPrinterl .Height = frmPrint.vsViewPart1 .Height * 0.99 
fTemp * frmPrint.vsPrinter1 .PageWldth / frmPrint.vsPrinterl. PageHeight 
fTemp = frmPrint.vsPrinterl .Height # fTemp 
frmPrint.vsPrintert .Width = fTemp 

Else 

frmPrint.vsPrinterl .Width « firm Print. vsvlewPortl. Width * 0.99 

fTemp = frmPrintvsPrinteii .PageHeight / frmPrint.vsPrinterl. Page Width 

fTemp a frmPrint.vsPrinteii .Width • fTemp 
I frmPrint.vsPrinterl. Height * fTemp 

I End If 

'Make viewport virtual screen large enough to show full page of print control 
frmPrint.vsvlewPortl .VirtualWldth = frmPrint.vsPrinterl .Width • 1 
frmPrint.vsViewPort1 .VirtualHeight = frmPrint.vsPrinterl. Height * 1 
frmPrint.vsvlewPortl .BorderStyte = 1 'turn off border 

Case Else 'Magnify view 

frmPrint.vsPrinterl .Width = frmPrint.vsPrinterl .PageWldth • 1 
frmPrint.vsPrinterl. Height - frmPrint.vsPrinterl .PageHeight * 1 

frmPrint.vsViewPortl .VirtualWldth * frmPrintvsPrinterl .Width ■ 1 'ensure scroll bars will be shown 

frmPrint.vsViewPort1 .VirtualHeight = frmPrint.vsPrinterl. Height * 1 
frmPrint.vsvlewPortl .BorderStyle = 0 'turn on border 
I End Select 

frmPrint.vsPrinterl .Visible = True 
frmPrint.vsvlewPortl .Visible ■ True 
frmPrint. vs Viewport 1 . Refresh 
frmPrintMousePointer = vbDefault 
Do Events 

End Sub 
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E 



Public Sub UpdatePageButtons() 

frmPrint.lblPageNumber. Caption » "Page " + CStr(frmPrint.HScroll1 .Value) + "of " + CStr(giTotalPrintPages) 
frmPrint.lblPageNumber. Refresh 
If giTotalPrintPages < 2 Then 

frmPrint.HScrolll .Enabled = False 'no scroll oar needed for a single page 
Else 

frmPrint.HScrolll. Enabled = True 
End If 
Do Events 



End Sub 
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Fax.bas - File Declarations 



Attribute VBJslame = "mcdFax" 
Option Explicit 

Public gcFax As Control 

Public gsFaxFileSpec As String 

Public gsEditName As String 'a temporary place to hold fax names being edited or created 
Public gsEditVoice As Stnng 
Public gsEditFax As String 

Public gsEditGrouplndexes As String 'holes temporary indexes to aii locations associated with a group 
Public gsEditGroupName As String 

Type FaxDataStructure 
sFaxID As String 
sDialPrefix As String 
IRetries As Integer 
iRetrylnterval As Integer 
bFaxResolution As Byte 
sSenderName As String 
sSenderCompany As String 
sSenderFaxNumber As String 
sSenderVo ice Number As String 

ilocTotal As Integer 'a count of the \ccations 

sLocPersonName(tOO) As String 'rgh it may be desirable in the future to make these arravs dynamic 
sLocFaxNumber(1 00) As String 
sLocVoiceNumber(IOO) As String 

IGroupsTotal As integer 
sGroupTtUe(SO) As String 

sGroupNameslnTitle(50) As String -indexes to names separated by pipe, (ie 3|6| 15) 

iGroupLastSelected As Integer 
End Type 

Public FAX_DATA As FaxDataStructure 



Public Sub GetFaxLocations() 

Dim i As Integer, r As Integer, sSection As String 

With FAX_DATA 

sSection = "Fax Locations" 

.ILocTotal = Clnt(GetlNISetting(gsFaxFileSpec, sSection, Total Locations", "0")) 

— For i * 1 To JLocTotal 

.sLocPersonNamefl) = GetlNISetting(gsFaxFileSpec, sSection, "Person M + CStr(i), "") 
.sLocFaxNumber(i) = GetlNISetting(gsFaxFileSpec, sSection, "Fax " + CStr(i). 1 
.sLocVoiceNumber(i) * GetINISetting(gsFaxFileSpec, sSection, "Voice " + CStr(i), "") 
Next i 

sSection = "Fax Groups" 

.IGroupsTotal = GetlNISetting(gsFaxFHeSpec, sSection, Total Groups", "0") 
_ For I = 0 To .IGroupsTotal 

.sGroupTitIe(l) = GetlNISetting(gsFaxFiIeSpec, sSection, "Group " ♦ CStr(i), "") 
.sGroupNamesinTitie(i) » GetlNISetting(gsFaxFileSpec, sSection, "Group Locations " + CStr(i), 

— Next) 

sSection = "User Selections" 

.iGroupLastSelected = Clnt(GetINISetting(gsFaxFileSpec, sSection, "Last Group Selected", "0")) 
End With 



End Sub 



PCT/US98/22830 



57 



WO 99/35588 



PCT/US98/22830 



Fax.bas - GetindexToFaxGroupNarhe 
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Public Function GetlndexToFaxGroupName(ByVal sGroup As String) As Integer 

'Find sName in the lis: of tax names, if found, pass index back to cafter. 
otherwise return 0 



Dim I As Integer 

sGroup a LCaseS(sGroup) 

With FAX_DATA 

For i « T To JGroupsTotal 

If LCaseS(.sGroupTitle(i)) = sGroup Then 
GetlndexToFaxGroupName = i 
Exit Function 
End If 
Next i 
End With 



End Function 



Public Function GetlndexToFaxLocName(ByVaI sName As String) As Integer 

rind sName in the lis: of tax names. If found, pass index back to cailer. 
otherwise return 0. 

Dim i As Integer 
sName = LCase$(sName) 
With FAX_DATA 
— For i = 1 To JLocTotal 




If LCase$(.sLocPersonName(i)) - sName Then 

GetlndexToFaxLocName = i 

Exit For 
End If 



i Nexti 

End With 

End Function 



Public Sub RemoveGroupFromFaxList(ByVal sGroup As String) 

'Remove the name from the list and move up all others in the Hst 
Dim I As Integer, j As integer, ilndexFound As Integer 



With FAX_DATA 

For i = 1 To JGroupsTotal 7oo/c through whole Hst for name 

If .sGroupTitle(i) = sGroup Then 'found it here 
ilndexFound = i 
Exit For 
End If 
Next I 



rFor \ * ilndexFound To JGroupsTotal - 1 
.sGroupTitle(i) = .sGroupTitle(i + 1 ) 
.sGroupNameslnTitle(i) = .sGroupNameslnTitle(t ♦ 1) 
__ Next I 

JGroupsTotal = JGroupsTotal - 1 

End With 



End Sub 
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Public Sub RemoveNameFromFaxList(ByVal sName As String) 

'Remove the name from the list and move uo all others in the list. 

Dim I As Integer, j As Integer, itndexFound As Integer, r As Integer 

Dim sTempUst(IOO) As String, sNewlndexes As String, iTemp As Integer 



With FAX_DATA 

For i = 1 To .iLocTotal look through whole Its: for name 

If .sLocPersonName(i) = sName Then 'found it hers 
ilndexFound = i 
Exit For 
End If 
Next) 

For i * ilndexFound To .iLocTotal - 1 

.sLocPersonName(i) = .sl_ocPersonName(i + 1) 
.sLocVoieeNumber(i) « ,sLocVoiceNumber(i + 1) 
.sLocFaxNumber(i) = .sLocFaxNumber(i + 1 ) 

Nexti 



.iLocTotal = JLocTotal - 1 

'Now that the name has been removed, we must look at ail of the indexes ct 

'each fax group to see if an index pointer was in there, tf so. it must 

'be removed. Additionally, all index greater than the one removed must be 

'decremented by one. 

If ilndexFound Then 

For i = 1 To JGroupsTotal 'look at each index record in a fax group 

'Parse out all of the indexs into a list for easier processing 

r = ParseDeilmString(.sGroupNameslnTitle(i) t T, sTempUstQ) 

sNewlndexes = 

If r Then Indexes where found for this record 
For | * 1 To r 

'look at each item in the list to see if it equals or great than the one removed 
iTemp s Clnt(sTempListO)) 

If FTemp ■ IlndexFound Then 'same index must be removed from list 
'nothing to do. Don't add it to new list of indexes 

Elself iTemp > ilndexFound Then 'higher indexes must be decremented by one. 
ITemp = iTemp - 1 

sNewlndexes = sNewlndexes ♦ CStr(iTemp) + Y 

Else 'original value is OK 

sNewlndexes ■ sNewlndexes ♦ CStr(iTemp) + "|" 
End If 
Nextj 
End If 

,sGroupNamesinTitJe(l) ■ sNewlndexes 'store the new list of indexes back to array 
Next i 
. End If 
End With 



End Sub 
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Public Sub SetFaxDeviceLabel() 

'Thts label on the options tab displays the status ot the fax device. 
'If a fax device exists, then the label displays the device, other+vise 
'it shows an appropnate message. 

With frmOptions.lblFaxDevice 
— If gcFax.DeviceCount > 0 Then 'at least one fax device was found 
Fori = 0 To gcrax.DewceCcunt - ? 

.Caption = gcFax.Devices(O) Show name of the device found 
.BackColor = &HFFOO& 'green background 

.ForeColor = &H0& 
' Next i 



Else 'no fax devices ware found 

.Caption = "A fax device was not found. Please ensure the fax or modem is connected propery.' 

.BackColor = &H80& 'red background 

.ForeColor = &HFFFFFF white 
— End If 
End With 

End Sub 
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Attribute VB_Name * "modCalendar 
Option Explicit 

Private giCompliedDosesCreated As Integer 'number of Complied Doses to show on the calendar 

Private giNonCompliedDosesCreated As Integer 'number of ncn-compited Doses to show on the calendar 
Private giDoseSizeChangesCreated As Integer 

Private giZoomDosesCreated As Integer number of Dcses to show m zoom box 

Private giDosesMissedCreated As Integer 'numoer of objects to show for missed days 

Private gbCalendarUpdatelnProgress As Integer 'prevents recursive calls while updating calendar 

Public gsngComplianceTimeRange As Single ofhrs on either side of a prescnbec cose in which a dose must be taken 



Type CALENDAR^SELECTIONS 

chkDosesTaken As Byte 

ch k Dose sNotComp lied As Byte 

chkDosesMissed As Byte 

chkDose Changed As Byte 
End Type 

Public CAL_DEFAULTS As CALENDAR_SELECTIONS 



Type SUMMARY_S ELECTIONS 

cmboDataToView As Byte 

cmboChartType As Byte 
End Type 

Public PAT SUM DEFAULTS As SUMMARY SELECTIONS 



Public Function CaIcDayslnMonth(ByVal iMonth As Integer, ByVal iYear As integer) 

'Calculate the number of days in the month/year that is passed here 
Dim 1 As Integer, ITemp As Long 

i = iMonth * 1 
lfi»13Theni*1 

ITemp = CVDate(CStr(I) + 70ir + CStr(IYear)) 
ITemp » rTemp - 1 
CaicDayslnMonth = Day(ITemp) 
End Function 




Public Sub DrawAIIDoseSizeChangesO 

Dim I As Integer, r As Integer, iDayslnMonth As Integer 

Dim sCalendarStartDate As String, dTime As Double 

Dim IDateDifference As Long, ICalendarStartDate As Long 

Dim bFirstDay Already Plotted As Boolean, bLastDayAlreadyPlotted As Boolean 

RemoveDoseSizeChanges 'remove el! of the otd doses first 

IDayslnMonth = CalcDays!nMonth(frm Dosing Calendar. Calendar. Month, frmDosingCalendar. Calendar. Year) 
sCalendarStartDate = CStr(frmDosingCalendar.Calendar.Month) + 701 r + Str$(frm Dosing Calendar. Calendar. Year) 
ICalendarStartDate * Date Value (sCalendarStartDate) 

If frmDosingCalendar.chkDoseChanged.Value Then 

For i = 1 To PAT_DATAJEventData(0) total number of events 

If PAT_DATA.byteEventType(i) = giEVENT_DOSE CHANGED Then 'show only med events (not errors, etc) 
IDateDifference = lnt<PAT_DATA.dEventDate(i))~ ICalendarStartDate 
If IDate Difference >= 0 And IDateDifference < iDayslnMonth Then 
dTime = PAT_DATA.dEventDate(i) - lnt(PAT_DATA.dEventDate(i)) 
DrawSingleDoseSizeChange C I nt(lDate Difference + 1), dTime, i, True 
End If 
End If 
Next i 
End If 

'This section of code ensures that dosing info is always plotted on the first and 

last day of the month. 

If bFtrstDayAlreadyPlotted = False Then 
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r = FindPrescibedDoseSizeForSpecificDay(PAT DATA, ICalendarStartOate) 
DrawSingleDoseSizeChange 1 , dTime, r, False " 
End If 

ir bLastDayAlreadyPlotted = False Then 

r = FindPrescibedDoseSizeForSpecificDay(PAT_DATA, ICalendarStartDate + iDayslnMonth - 1) 

DrawSingleDoseSizeChange iDayslnMonth, dTime, r, False 
End If 

For r a 1 To glDoseSizeChangesCreated 'shew all the Doses 

frmDosingCalendar.shapeDoseSizeChange(i). Visible = True 
Nexti 



End Sub 



Public Sub DrawAliCompiiedDosesTakenQ 
Dim i As Integer, r As Integer 

Dim sCalendarStartDate As String, dTime As Double 

Dim IDateOifference As Long, ICalendarStartDate As Long 

Dim iDayDoseCount As Integer, iDayNumberBeingPlotted As Integer, iLastDoseDayDrawn As Integer 
Dim iDayslnMonth As Integer, ITemp As Long 

RemoveCompliedDosesTaken remove all of the old doses first 
If frmDosingCalendar.chkDosesTaken. Value = False Then Exit Sub 

sCalendarStartDate = CStr(frmDosingCalendar.Calendar.Month) + 70ir + StrS(frmDosingCalendar.Calendar.Year) 
ICalendarStartDate = Date Value (sCalendarStartDate) 

'Calc the number of days in the month being displayed 

iDayslnMonth = CalcOayslnMonth(frmDosingCalendar.Calendar.Month, frmOosingCalendar.Calendar.Year) 

- For i = 1 To PA7_DATA.iEventData{0) total number of events 

— If PAT_DATA.byteEventType(i) = glEVENT DOSE TAKEN Then 'show only med events (not errors, etc) 

IDateOifference = lnt(PAT_DATA.dEventDate(i)) - ICalendarStartDate 

If IDateOifference >=* 0 And 1 Date Difference < IDayslnMonth Then 'dose occurred dunng this month 
'Determine if the dose occurred within the compliance parameters 
r * lsDoseWithinPrescribeaTimeRange(PAT_DATA, I) 'pass index to event erne 
If r Then 

IDayNumberBeingPlotted = Clnt(IDateDlfference ♦ 1) 
If iDayNumberBeingPlotted = iLastDoseDayDrawn Then 

IDayDoseCount ■ IDayDoseCount * 1 'plotting same day as last dose 
Else 

IDayDoseCount = 1 'this is a new day. Reset counter 
End If 

ILastDoseDayDrawn « IDayNumberBeingPlotted 'remember that we are plotting on this dat 
DrawSingleCompliedDoseTaken IDayNumberBeingPlotted, dTime, i, iDayDoseCount 

End If 
. End if 
Next I 

For I = 1 To giCompliedDosesCreated 'show all the Doses 

frmDosingCalendar.shape Dose 0). Visible » True 
Nexti 



End Sub 
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Public Sub DrawAIIDosesMissedQ 
Dim i As Integer, IDayslnMonth As Integer, I As Long 
Dim sCalendarStartDate As String 

Dim IDateDifference As Long, ICalendarStartDate As Long 
Dim iDayDoseCount As Integer, iDayBeingPlotted As Integer 

RemoveDosesMissed 'remove all of the old doses first 
If frmDosingCalendar.ehkOosesMissed.Value = False Then Exit Sub 

iDayslnMonth = CalcDayslnMonth(frmDosingCaiendar.Calendar.Month, frmDosingCalendar.Calendar.Year) 
sCalendarStartDate - CStr(frmDosingCalendar.Calendar.Month) + *70ir + CStr(frmDosingCalendar.Cafendar.Year) 
ICalendarStartDate = DateVaiue(sCalendarStartDate) 

— For I = ICalendarStartDate To ICalendarStartDate + iDayslnMonth - 1 Sequence through all days in month 
If | >_ PAT_DATA.dEventDate(1 ) Then 'day being plotted is not eariier than 1st dose in structure 

I ,f ' 1 P ^ T - DATA - dEventDate ( PA T^DATA.iEventData(0)) Then 'day being plotted is not later than last dose in structure 

IDayBeingPlotted = I - ICalendarStartDate ♦ 1 gst the current month day to plot 

IOayOoseCount - CaJcDosesSumTakenOnSpecificDay(PAT DATA, I) 'caic missed doses for this day 

CFori-1 To PAT_OATA.iOosesPerDay - iOayOoseCount 
DrawSingleDoseMissed iDayBeingPlotted, i 'Plot the current day 

Next i 

End If 

End If 

- Next I 



For I = 1 To giDosesMissedCreated show all the Doses 

frmDosrngCalendar.shapeDoseMissed(i).Visible - True 
Next I 



End Sub 



Public Sub DrawAIINonCompliedDosesTakenO 
Dim I As Integer, J As Integer, b Dose OutOfComplia nee As Boolean 
Dim dTJmeLimit As Double, dLowUmit As Double, dHighUmit As Double 
Oim sCalendarStartDate As String, dTime As Double 
Dim IDateDifference As Long, ICalendarStartDate As Long 

Dim IDayDoseCount As Integer, IDayNumberBeing Plotted As Integer, iLast Dose Day Drawn As integer 
Dim IDayslnMonth As Integer " 

Remove NonCompliedDosesTaken remove all of the old doses first 
If frmDosingCalendar.chkDosesNotComplied. Value = False Then Exit Sub 

iDayslnMonth =» CalcDayslnMonth(frmDosingCalendar.Calendar.Month, frmDosingCalendar.Calendar.Year) 
sCalendarStartDate » CStr(frmDosingCalendar.Calendar.Month) + 70ir «■ Str$(frm Do sing Calendar. Calendar Year) 
ICalendarStartDate * DateValue(sCalendarStartDate) 

dTimeUmit « gsngComplianceTimeRange / 24 
- For i = 1 To PATDATAJEventData(O) 'total number of events 

_ If PAT_OATA.byteEventType(?) » giEVENTJDOS EJTAKEN Then 'show only med events (not errors, etc) 
IDateDifference * lnt(PAT_DATA.dEventDate(I)) . ICalendarStartDate 

If IDateDifference >= 0 And IDateDifference <= iDayslnMonth Then dose occurred dunng this month 
dTime « PAT. DATA. dEventDate(i) - lnt(PAT_DATA.dEventDate(i)) 'get time of dose 
'Determine if the dose occurred within the compliance parameters 
'rgh see if we can use our procedure already created 

If gsngComplianceTimeRange Then 'do test if there is a value set in the compliance time range 
bDoseOutOfCompliance ■ True 'set default to be out of range unless otherwise set below 
For j = 1 To PAT_DATA.iDosesPerDay 
compare dose time against all of the alarm times 

dLowUmit * P ATJD A TA.d Pre scribed Do seTime(j) - dTimeUmit - 0.0001 'add a factor to prevent rounding error 
dHighLimit * PAT_DATA.dPrescribedDoseTime(j) * dTimeUmit * 0.0001 
If dTime >« dLowLimit And dTime <= dHighLimit Then 'this dose is within compliance 
bDoseOutOfCompliance = False set flag to not plot this dose 

Exit For no need for further testing of this dose. It is in compliance 
End If 
Next] 
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Else 'there is no compliance range 

bDoseOutOfCompiiance = False 
End If 

If bDoseOutOfCompiiance Then 

iDayNumberBeingPlotted = Clnt(IDateDifference f 1) 
If IDayNumberBeingPlotted ■ iLastDoseOayDrawn Then 

iDayOoseCount = iDayDoseCount «• 1 'plotting same day as fast dose 
Else 

iDayOoseCount = 1 'this is a new day. Reset counter 
End If 

iLastDoseOayDrawn = iDayNumberBeingPlotted 'remember that we are plotting on this dat 

E °^ wSin9leNonComp,iedDoseTaken Clnt(IDate Difference + 1), dTime, i, iDayDoseCount 

End If 
. End If 
Next) 

For i = 1 To giNonCompiiedDosesCreated 'shew all the Doses 

frniDosingCalendar.shapeDoseNonCornpry(i). Visible = True 
Next i 
End Sub 



Public Sub DrawSingleDoseSizeChange(iDay As Integer, dTime As Double, iEventNumber As Inteqer bHiahlia 

'Draw dosing Doses for the day of the month and time of day passed in here. 1 "nigniig 

'Time of time is expressed in decimai places as a portion of a day (VB time format} 
'NOTE: No checks are currently made to determine whether the event Is a med event or 
'a non-med event. If both events are kept in the same array, then a test of the med hit 
'must be done before plotting. 

'A Dose is not visible when first created. The caller should display the Doses once they 

are all created, so as to speed the redraw of the screen. 

'Create another clone of the the Dose shape located in the array DosefO) 

'When this feature is on. a dose size is automatically entered on the first and last day of the month. 

' On Error Resume Next 

Dim I As Integer, IWeekDay As Integer 

Dim IDoseLeft As Single, IDoseTop As Single 

Dim ITemp As Long, IDayWIdth As Long, IDayHeight As Long 

giDoseSizeChangesCreated = giDoseSizeChangesCreated ♦ 1 'increment counter 

Load frmDosingCalendar.shapeDoseSizeChange(giDoseSizeChangesCreated) create a new object 

Do Events 

frmDosingCalendar.shapeDoseSizeChange(giDoseSizeChangesCreated) = ' - + CStr(PAT_DATA.iEventData<iEventNumber)) + " mg 
- If bHighUght Then 

frmDosingCalendar.shapeDoseSizeChange(giDoseSizeChangesCreated).BackColor = &HFFFFCO 'blue 

frmDosjngCalendar.shapeDoseSizeChange(giDoseSizeChangesCreated)ToolTipText « " Dose Size Was Changed Today " 
Else 

frmDosingCalendar.srtapeDoseSizeChange(giDoseSizeChangesCreated).ToolTipText = " Current Dose Size N 
. End If 



'These lines are a wonx-around for a bug in the control that causes it to 

return the wrong values for day .left, day. top. etc. When fixed, we can simply use those properties 
'and remove these calculations. 

IDayWIdth = (frm Dosing Calendar. Calendar. Width - 50) / 7 'actual scaiewidth of a single day 

!I? m P,T ( frmDosin 9 Catendar -Calendar.DayLeft(iDay) • 26) / IDayWIdth 'approximate location of the day 
iWeekOay ■ Clnt(ITemp) y 
IDoseLeft = (IWeekDay * IDayWIdth) 'get left edge of day to plot 
IDoseLeft = IDoseLeft * ((IDay Wi dth / 5) * iPlotPosition - 1) - (IDayWIdth / 10) 

IDoseLeft = IDoseLeft + (IDayWidth • 0.8) - frmDosingCalendar.shapeDoseSizeChange(giDoseSizeChangesCreated).WIdth 



If lnt(IOayWidth / 150) < 7 Then 

frmDosmgCalendar.shapeDoseSizeChange(giDoseSizeChangesCreated).FontBold = False 
Else 
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frmDosingCalendar.shapeDoseS_eChange(giDoseSizeChangesCreated).FontBoid = True 
End If 

frmDosingCalendar.shapeDoseSizeChange(giDoseSizeChangesCreated).FontSize = int (I Day Width / 150) 
frmDasingCaJendar.shapeDoseSizeChange(giDoseS_eChangesCreated).Lefl = IDoseLeft 



'These lines are a work-around for a bug in the control that causes it to 

'raturn the wrong values for day left. day. top. etc When fixed, we can simpiv use those procerties 
'and remove these calculations. 

The control is even moe stupid than I first supecied. It can not always return the proper vertical 
'location of a day. thus, we have to Jump througn more hcccs to figure ou: what week that a particular 
'day is in 

IDayHeight = (frmDosingCaiendar.Calendar.Height - 50) - 625 'an offset is used to comcensate for height of title 

IDayHeight = IDayHeight / 6 

iWeekDay = (frmDosingCalendar.Calendar.Day Lefl(1 ) • 26) / IDay Width 'the approximate location of the cav 

ITemp = lnt((IDay + iWeekDay - 1) / 7) y 

IDoseTop = (Hemp • IDayHeight) + 625 'this number factors in the title Par 
IDoseTop = IDoseTop + 50 

frmDosingCalendar.shapeDoseSizeChange(giDoseSizeChangesCreated).Top = IDoseTop 
► f £ 0 °° S ^ C ^ = iEventNumber -keep event number for updating the 

' On Error GoToO 
End Sub 



Private Sub DrawSingleNonCompHedDoseTaken(iDay As Integer, dTime As Double, iEventNumber As 
V Integer, iPlotPosition As Integer) 

Draw dosing Doses for the day of the month and time of day passed in here. 
Time of time is expressed in decimal places as a portion of a day (VB time format) 
'NOTE: No checks are currently made to determine whether the event is a med event or 
'a non-med event. If both events are kept In the same array, then a test of the med bit 
'must be done before plotting. 

'A Dose is not visible when first created. The caller should display the Doses once they 

'are all created, so as to speed the redraw of the screen. 

'Create another clone of the the Dose shape located in the array Dose(O) 

On Error Resume Next 

Dim 1 As Integer, iWeekDay As Integer 

Dim IDoseLeft As Single, IDoseTop As Single 

Dim ITemp As Long, IDayWIdth As Long, IDayHeight As Long 

giNonComplledDosesCreated * giNonCompliedDosesCreated + 1 increment Dose counter 

Load frmDosingCalendar.snapeDoseNonComply(giNonCompliedDosesCreated) 'create a new Dose 



These lines are a work-around for a bug in the control that causes it to 

'return the wrong values for day. left. day. top. etc. When fixed, we can simply use those properties 
'and remove these calculations. 

IDayWIdth * (frmDosingCalendar. Calendar. Width - 50) / 7 'actual scalewidth of a single day 

iWeekDay » (frm DosingCalendar.Calendar.DayLeft(iDay) # 26) / IDayWIdth 'approximate location of the day 



IDoseLeft * (iWeekDay • I Day Width) 'get left edge of day to plot 
IDoseLeft » IDoseLeft ♦ ((IDayWIdth / 5) ■ iPlotPosition - 1 ) - (IDayWIdth / 1 0) 
frmDosingCalendar.shapeDoseNonComply(giNonCompliedDosesCreated).Left = IDoseLeft 



These lines are a workaround for a bug in the control that causes it to 

'return the wrong values for day. left. day. top. etc. When fixed, we can simpiv use these prooerties 
'and remove these calculations 

'The control is even moe stupid than I first supec:ed. It can not always return the proper vertical 
location of a day. thus, we have to jump through more Poops to figure out what week that a particular 
'day is in. 

IDayHeight ■ (frmDosingCalendar. Calendar.Height - 50) - 625 'an offset is used to compensate for height of title 
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IDayHeight = IDayHeight / 6 

iWeekOay = (frmDosingCalendar.Calendar.DayLefl(1 ) • 26) / IDayWldth 'the approximate location of the dav 

ITemp » lnt((IDay ♦ iWeekDay - 1) / 7) 

IDoseTop * (fTemp * IDayHeight) + 625 this number factors in the title bar 

► He^hT° P 'tfra^m n^tfovJ tfdIJy 8 " * 5 ° " frrnDosjn 9 Calendar - sha P eDose (°) Hei 9 ht " f ™D°singCalendar.shapeDoseNonCornply(0). 
frmOosingCalendar.shapeOoseNonComply(giNonCompliedDosesCreated).Top = IDoseTop 

frmDosingCalendar.shapeDoseNonComply(giNonCompliedDosesCreated).Tag = iEventNumber 'keeo eve~ nrr-b*r f n , w 

► zoom box ' ■ " ul "°erTor updating the 

On Error Go To 0 
End Sub 

Public Function lsDoseWithinPrescribedTimeRange(DataStruct As DeviceDataStruct, BvVal ilndex As IntPnoH 

'Test to see that the event at the index passed here is a medication event and that »«egerj 
it is within the presented time range for a daily dsse. //yes. then 
pass TRUE back to the cafier. 
Dim i As Integer, dTime As Double 

Dim dTimeLimit As Double, dlowLimit As Double, dHighUmit As Double 
dTimeLimit » gsngComplianceTimeRange / 24 

dTime = DataStruct.dEventDate(ilndex) - lnt(DataStruct.dEventDate(ilndex)) 'get time of dose 
. If gsngComplianceTimeRange Then 

— For I a 1 To DataStruct.iDosesPerDay 

compare dose time against all of the alarm times 

dLowUmit = DataStnjct.dPrescribedDoseTime(i) - dTimeLimit - 0.0001 'adef a factor to prevent rounding error 

dHighUmit = DataStruct.dPrescribedDoseTime(i) + dTime Umit ♦ 0.0001 
If dTime >= dLowLimit And dTime <= dHighUmit Then 
IsDoseWlthinPrescribedTimeRange = True 
Exit For 'no need to do any further test;ng for this dose 
End If 

— Next! 

— Else 'there is no compliance range, so pass back a success flag 

IsDose Within PrescribedTimeRange = True 
. End If 
End Function 



Private Sub PrintCalendarQ 

This routine is called when the user presses the print button 
" on the calendar form 

' Dim sPnntlnfo As Suing 

' Dim CRU= As String 

' Dim bcolorCaiendar As Long 

Dim bcotorpnlZoom As Long 
* Dim bcotorpnlTtme As Long 

Dim bcolorform As Long 
' Dim fcotorPreschbed As Long 
' Dim fcoiorMlssed As Long 
' Dim fcoiorWeek As Long 

' Dim curTop As Long 
4 Dim curWidth As Integer 
' Dim curHeight As Integer 

' Const XOffset = 1$2G 
' Const YOffset = 1890 

' On Error G0T0 £rror_ btnPhnt 



CRLF = ChrS(13) ♦ Chr$(10) 
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curTop - Me Top 
' curWidth = Me. Width 
' curHetght = Me.Height 

' Hide this guy off the screen while we print 
' Me. Top = -(curHetght ' 2) 

Save current background colors 

bcoiorCalencar = Calendar.BackColcr 

bcoiorpniZoom » pniZoom.BackColcr 

bcoiorpnlTime - pnmme.BackColor 

bcoiorForm - Me.3ackCoior 
" fcotorPrescnbed = chkDoses Taken.Fn'lCcicr 
" fcolorMissed = chkDosesMisse d FillCcicr 
" fcolorVVeek = chkWeekNumbers.FillColcr 

' hide the buttons 
' btnCiose. Visible = False 
btnPnnt.Visibie = False 

Add date * time info to printed data 
sPrintlnfo - 'Printed cn: " * FormatSiNcw. "dcddd hh:nn") 
' IblPnntlnfo.Capbon - sPrintinfo 

' Set titles at top of printed page 
ibffitle. Caption - 'Dosing Calendar' 
IblPatient.Caption = "Patient: * * tgDevicestat.sFabent 
tbldrug.Caption = "Drug: ' * tgDevicestat.sDrvg 

' Set background coiors 
Caiendar.BackColor « WHITE 
pnlZoom.3ackColor = WHITE 
pnffimeBackColor- WHITE 
Me.BackCoior - WHITE 
chkDosesTaken.FiilColor = WHfTE 
chkDosasMissed.FiltColor = WHITE 
chkWeekNumbers.FUlColor - WHITE 

' Let user know we are printing 
Lead frm^Status 

frm_Status.iblStatus.Caption = "Preparing to pnnt calendar* 
frm_Status.Show 

Move resize the form and move objects to give space for printing 
Cail DeteteAfiObjects ' remove extraneous elements from calendar 

Call MoveFormObiects(Me, XOffset. YOffset True) 
Call UpdateCalendar 
DoEvents 

'Call UpdateZoomBox 

* Switch on visibility of titles 
iblPrintinfo.Visible = Trve 
IbiTitle. Visible = True 
IblPatient.Visible ■ True 
ibldrvg. Visible ■ True 

Make Check boxes two dimensional 
chkDosesTaken.Check3ox2d - True 
chkDosesMissed.CheckBox2d = True 
chkWeekNumbers.Checi<Box2d « True 



Bring the Zoom labies to the front 
IblZoomTime.ZOrder 0 
IblZoomTime. Visible ■ True 

' Print the form 
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Me. Height = Me Height - YOffser 
Ma.Width = Me.Width * XCftser 



DcEvents 
Me.PnntForm 
DoB vents 



frm_Status.!b!Status Caption = 'Sending oeiendat to pnnter 

hide the titles and show the buttons 
ibIPnnttnfo. Viable = False 
foffitte. Visible = False 
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' tblP3tient.Vistbie - Faise 

" tbiarvg.Vtstbto ■ Fmse ~ ~ 

' Move everything beck 
' Call DeleteAilObjects 

' Call MoveFormObjectsfMs. -XOffsat. -YOffset True) 
' Call UpdateCaiendar 

' Restore background colors 

Calendars ackColor = bcolorCaiendar 
' pnlZoom.BackColor = bcciorpnlZoom 
' pnlTime.BackCoior - bcolorpniTime 
' Me.BackColor = bcclorForm 
' chkDcses Taken . Fill Color = fcolorPrsschb e d 
' ct:kDcsesMissed.FHICalor = fcolorMissec 
' cnkWeekNumbers.F-ilCcJcr = fcclarWeek 

' ' Restore buttons 

' btnCicse .Visible = True 

' OtnPrint.Visibie - True 

' Set check boxes back to 3d 

' Make Check boxes two dimensional 
' chkDosesTaken.CheckBox2d = False 
' chkDosesMissed.CheckBox2d = False 
' chkWeekNumbers.CheckBox2d = False 

' ' Bring box back into view 

' Me. Width = curWidth 

' Me. Height - curHeight 

' Me. Top = curTop ' bring form back into view 

' Unload frm_Status 

•Exit btnPrint 
' Exit Sub 



'Error^btnPrint: 

* Resume Exit^btnPhnt 
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End Sub 



Public Sub RemoveDoseSizeChanges() 
Dim i As Integer 
On Error Resume Next 



j For I - 1 To giDoseSizeChangesCreated remove ali previous Doses 

| ^ Unload frmDosingCalendar.shapeDoseSizeChange(i) 

giDoseSizeChangesCreated « 0 

On Error GoTo 0 
End Sub 



Public Sub RemoveDosesMissed() 
Dim I As integer 
On Error Resume Next 

F m 1 ^9iP osesMissed Created 'remove ait orevious object 

UnJoad frmDosingCalendar.shapeDoseMissed(i) 
Next i 

giDosesMissedCreated = 0 



On Error GoTo 0 
End Sub 



Public Sub RemoveCompIiedDosesTakenO 
Dim i As Integer 
On Error Resume Next 



F m 1 J° 9 ,Com P |ledDos esCreated 'remove aft previous Doses 

Unload firm Do sing Calendar, shape Dose (I) 

giCompliedDosesCreated = 0 
On Error GoTo 0 
End Sub 



Public Sub RemoveNonCompliedDosesTakenO 
Dim I As Integer 
On Error Resume Next 




or i = 1 To giNonCompiiedDosesCreated Vemo ve aii previous Doses 

Unload frmDosingCalendar.shapeDoseNonCompfy(i) 



giNonCompiiedDosesCreated = 0 

On Error GoTo 0 
End Sub 



J 7 ? 
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Calendar.bas- UpdateZoomBox 

___ ________ ^ 



Public Sub UpdateZoomBox() 

'A different day was clicked on the calendar, so we need to plot the events for 

'the current day into the zoom box. 

This procedure draws doses taken for a given day 

'NC t £=: No checks are currently made to cetermine whether the event ts a med event or 
'a non-med event, if both events are kept in the same array, then a test of the med bit 
must be done before plotting. 

Dim i As Integer, dTime As Double, iDoseDay As Integer, iZoom Pane (Width As Integer 

Static bProcedureln Progress 

If bProcedurelnProgress Then Exit Sub 

bProcedurelnProgress = True 



On Error Resume Next -pre vent error if already unloaded 

For i = 1 To giZoomDosesCreated 'remove ail previous Doses 

Unload frmDosingCalendar.shapeZoomDosefh 
Next i ■ 

giZoomDosesCreated = 0 



For i = 1 To 4 

Unload frmDosingCalendar.shapeZoomPrescribed(i) 'clear the text box for zoom time 

Unload frmDosingCatendar.shapeZoomTimeRange(i) 'clear the text box for zoom time 

Next i 

On Error GoTo 0 'resume normal error status 

EoomPanelWIdth = frm Do singCaiendar.pnlZoom. Width 'speed up process by defining width from control 
— For i 3 1 To 4 

If PAT_DATA.dPrescribedDoseTime(i) >= 0 Then 

dTime « PAT__DATA.dPrescribedDoseTime(i) - lnt(PAT DATA.dPrescribedDoseTime(i)) 
Load frmDosingCalendar.shapeZoomTimeRangeO) 

frmDosingCalendar.shapeZoomTimeRange(i).Left = (iZoomPanelWidth # dTime) - (iZoomPanelWidth * ( 
H gsngComplianceTlmeRange / 24)) 

frmDosingCalendar.shapeZoomTlmeRange(i). Width = (IZoomPanelWidth • (gsngComplianceTimeRange / 24) • 2) 
W '^^J^^^^^^^^oomT/me^ange^.Tooynprexf = " Compliance Time Range - ' + CStr(gsngCompiianceTtmeRange 

frmDosingCalendar.shapeZoomTimeRangeO). Visible * True 
E ^OosingCalendar.shapeZoomT»meRange(i).ZOrder 

Next I 

For i « 1 To 4 

If PAT_DATA.dPrescribedDoseTime(i) >* 0 Then 

dTime » PAT_DATA.d Prescribed Do seTime(i) - lnt(PAT_OATA.dPrescribedDcseTime(i)) 
Load frmDosingCalendar.shapeZoomPrescribed(i) 

frmDos4ngCalendar.shapeZoomPrescribed{i).Len * (iZoomPanelWidth * dTime) - (frmDosingCalendar.shapeZoomPrescribed(i). 
V Width / 2) + 1 5 

frmDos|ngCalendar.shapeZoomPrescribed(O.ToompText = Format$(dTime, gsTime Display Format) 
frmDosingCalendar.shapeZoomPrescribed(i). Visible = True 

frmDosingCalendar.shapeZoomPrescribed(I).ZOrder 
■ End If 
Nexti 



r 



Fori - 1 To 4 

frmDosingCalencar.;xtZaomTimeo').CaDtion = " dear the text box for zoom time 

Next i 

Dim ICalendarDate As Long 

ICalendarOate * DateValue(frmDosingCalendar.Calendar.Date) 
For I s 1 To glCompliedDosesCreated 
'rgh we may later want to use a global array instead of the tag prooerty to prevent flashing and speed things uo. 
iDoseDay * frm Dosing Calendar, shape Dose (I). Tag 'get the dav that the cose was taken on 

If lnt(PAT_DATA.dEventDate(iDoseDay)) = ICalendarDate Then 

Create another clone of the the Dose shape located in the array Dose(O) 
giZoomDosesCreated = giZoomDosesCreated ♦ 1 Increment Dose counter 



$8 
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________ ^ 



Load frmDosingCalendar.shapeZoomDose(giZoomDosesCreated) 'create a new Oose 

dTime » PAT_DATA.dEventDate(iDoseDay) - lnt(PATJ3ATA.dEventDate(IDoseDay)) 

ffmDosingCalendar.shape2oomDose(giZoomDosesCreated).Lert = (frmDosingCalendar.pnlZoom. Width • dTime) - 1 
frmDosingCalendar.shapeZoomDose(giZoomDosesCreated).Width / 2) 

frmDosingCa!endar.shapeZoomOose(giZoomDosesCreated).ToompText = Format$(dTime, gsTimeDisplayForman 
fnnDosingCalendar.shapeZoomDose(giZoomDosesCreated).Visible = True ' 
frmDosingCalendar.shapeZcomDose(giZoomDosesCreated).ZOrder 
End If 
Next! 



E 



For i = 1 To giNonCompIiedDosesCreated 
iDoseDay = frmDosingCalendarshapeDoseNonComply(i).Tag get the day that the dose was taken on 

- If lnt(PAT_DATA.dEventDate(iDoseDay)) = ICalendarDate Then 

'Create another done of the the Dose shape located in the array DosetOi 
giZoomDosesCreated = giZoomDosesCreated + 1 . 'increment Dose counter 

Load frmDosingCalendar.shapeZoomOose(giZoomDosesCreated) 'create a new Dose 

dTime = PAT_DATA.dEventDate(iDoseOay) - lnt(PAT DATA.dEventDate(iDoseDay)) 

frmDosingCalendar.shapeZoomDose(giZoomOosesCreated).left = (frmDosingCalendar.pnlZoom. Width • dTime) - f 
frmOosingCalendar.shapeZoomDose(giZoomOosesCreated).Width / 2) 

frmOosingCaiendar.shapeZoomDose(giZoomDasesCreated).ToompText = Format$(dTime, gsTimeDisplayFormat) 
frmDosingCalendar.shapeZoomOose(giZoomOosesCreated).Visibie = True 
frmOosingCalendar.shapeZoomDose(gtZoomDosesCreated).ZOrder 
End If 
Nexti 

frmDosingCalendar.pniZoom. Caption = FormatS(frmDosingCalendar.Calendar.Date. 'General Date") * ' Detail View" 

'update oosition of time scale 
Fori = 2To22Step2 

frmDosingCalendar.lblDetailTime(i).Left = (frmDosingCalendar.pnlZoom.Wldth • (1/24)) - (frm Dosing Calendar.lblDetailTime (I). Width 
Nexti 

frmDosmgCalendar.shapeDayUght(2).Width * frmDosmgCaJendar.pnlZoom.Width • 0.53 
frmDosingCalendar.shapeDayUght(1).WIdth = frmDosingCalendar.pnIZoom.Width • 0.03 
frniDosingCalendar.shapeDayUght(3).Width = frm Dosing Calendar.shape Day Ught( 1 ).Width 

frmDoangCalendar.shapeDayUght(2).Left * (frm Do singCalendar.pnEoom. Width - frmOosingCalendar.shapeDayLigh«2) Width) / 1 8 
WlSr 09 * ShaP ayU9W(1 ),Left = 20 + frmDosin 9 Ca,endarsha P e0a y^gM(2)Lert - frmDosingCalendar.shapeDay Ught(1 ) 

> ?i5 OSin9Ca,endarShapeDaylJ9hl(3) * Left * frmDosln 9 Calendar - sha P eDa yl- i 9rit(2).Lert + frmDosingCalendar.shapeDayUght(2).WIdth 

bProcedurelnProgress = False 
End Sub 



Private Sub MoveFormObjects(fnm As Form, XOffset As Integer, YOffset As Integer, VisibleOnly As Integer) 

This routine moves alt objects on a form by the specifed amount 
' Argument Descnption 
trm Form object 

XOffset offset (in twips) to move in x plane. Positive is to the nght 

YOffset offset (In twips) to move in y piano. Positive is down. 
' VisibieOniy if true oniy move visible objects 
Dim i As Integer 

On Error GoTo Error_MoveFormObjects 



r 



' loop through ali the forms on the form 
For I » 0 To frm.Controls.Count - 1 

if 1) the processing only visible controls and the controls is visible 
' or 2) processing all controls 
If frm.Controls(l).Tag <> "contained" Then 

If (VisibleOnly And frm. Co ntrols(i). Visible) Or Not VisibleOnly Then 
reset left and top properties 
frm.Controls(i).Left = frm.Controls(i).Lert + XOffset 
frm.Controls(i).Top * frm.Controls(i).Top + YOffset 
End If 
End If 
Nexti 
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_ ___________ ^ 



Exit MoveFormObjects: 
Exit Sub 

Error_MoveFormObjects: 

Resume Ex it_MoveForm Objects 

End Sub 



Private Sub DrawSingleCompliedDoseTakenfiDay As Integer, dTime As Double, iEventNumber As Intent 

'Draw dosing Doses for the day of the month anc time of day passed in here C9er » 



'Time is expressea in decimal places as a portion of a day (VB ome format} 
'NOTE: No checks are currently made to determine whether the event ts a mec event or 
a non-med event fftoth events are kept m the same array, then a test of the rr.ed bit 
must be done before plotting. 

•A Oose is not visible when first created. The caiter should display the Dcses once they 

'are all created, so as to speed the redraw of the screen. 

'Create ancdier clone of the the Dose shape located in the array Dose(C) 

On Error Resume Next 

Dim i As Integer, iWeekOay As Integer 

Dim IDoseLeft As Single, IDoseTop As Single 

Dim ITemp As Long, IDayWidth As Long, IDayHeight As Long 

giCompliedDosesCreated = giCompiiedDosesCreated + 1 'increment Dose counter 

Load frmDosingCalendar.shapeDose(giCompliedDosesCreated) creafe a new Dose 



'These fines are a work-around for a bug in the control that causes it to 

'return the wrong values for day. left. day. top. etc. When fixed, we can simoiv use those properties 
'and remove these calculations. 

IDayWidth = (frmDosingCalendar. Calendar. Width - 50) / 7 'actual scaiewidth of a single day 

iWeekDay » (frm DosingCalendar.Caiendar.DayLeft(iDay) * 26) / IDayWidth approximate location of the day 

IDoseLeft = (iWeekDay * IDayWidth) 'get left edge of day to plot 
IDoseLeft * IDoseLeft + ((IDayWidth / 5) • IPIotPosition - 1) - (IDayWidth / 10) 
frmDosingCaIendar.shapeDose(giComplIedDosesCreated).Lert = IDoseLeft 



'These lines are a work-around for a bug in the control that causes it to 

'return the wrong values for day. left, day.top. etc. When fixed, we can simply use those properties 
'and remove these calculations. 

'The control is even moe stupid than I first supected. It can not always return the proper vertical 
'location of a day, thus, we have to jump through more hoops to figure out what week that a particular 
'day is in 

IDayHeight = (frmDosingCalendar.Calendar.Height - SO) - 625 an offset is used to compensate for height of title 

IDayHeight = IDayHeight / 6 v 
iWeekDay « (frmDosingCalendar.Caiendar.DayLeft(l) * 26) / lOayWIdth 'the approximate location of the day 

Hemp » lnt((IDay ♦ IWeekDay - 1 ) / 7) y 



IDoseTop = (ITemp ' IDayHeight) + 625 'this number factors in the title bar 

IDoseTop = IDoseTop * IDayHeight - 25 - frmDosingCalendar.shapeDose(0).Height draw in bottom of day 
frmDosingCalendar.shapeDose(giCompIiedDosesCreated).Top = IDoseTop 

frmDosingCalendar.shapeDose(giCompliedDosesCreated).Tag = iEventNumber 'keep event number for updating the zoom box 

On Error GoTo 0 
End Sub 
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Private Sub DrawSingleDoseMissedfiDay As Integer, iPlotPosition As Integer) 
'Draw doses for the day of the month passed in here 

NOTE: No checks are currently made to determine whether the event is a med event or 
a non-med event. A test of the med btt must be dene before catling this procedure. 
'A Dose is not visible when first created The caller should disclay the Doses once they 
are all created, so as to speed the redraw of the screen. 

On Error Resume Next 

Dim i As Integer, iWeekOay As integer 

Dim IDoseLeft As Single, IDoseTop As Single 

Dim (Temp As Long, IDayWidth As Long, IDayHeight As Long 

giDosesMissedCreated ■ giDosesMissedCreated ♦ 1 'increment Dose counter 

■Create another clone of the the Dose shape located in the array Dose(0) 

Load frmDosingCalendar.shapeDoseMissed(giDosesMissedCreated) create a new Dcse 



These iines are a work-around for a bug in the control that causes it to 

'return the wrong vaiues for day. left. day. top. etc. When fixed, we can simpJy use these properties 
'and remove these calculations. 

IDayWidth = (frm Do singCalendar. Calendar. Width - 50) / 7 'actual scalewidth of a single day 

iWeekDay = (frmDosingCalendar.Calendar.DayLett(iDay) ■ 26) / IDayWidth approximate location of the cay 



IDoseLeft = (iWeekDay • IDayWidth) -get left edge of day to plot 
IDoseLsft a IDoseLeft ♦ ((IDayWidth / 5) * IPlotPosition - 1) - (IDayWidth / 10) 
frmDosingCalendar.shapeDoseMissed(giDosesMissedCreated).Left = IDoseLeft 



'These lines are a work-around for a bug in the control that causes it to 

'return the wrong vaiues for day. left. day. top. etc. When fixed, we can simply use those properties 
'and remove these calculations. 

The control is even moe stupid than I first supected. It can not always return the proper vertical 
'location of a day. thus, we have to jump through more hooos to figure out what week that a particular 
'day ism. 

IDayHeight » (frrnDosingCaiendar.Cafendar.Height - 50) - 625 an offset is used to compensate for heioht of title 

IDayHeight « IDayHeight / 6 

iWeekDay = (frrnDosingCalendar.Calendar.DayLeft(l) • 2S) / IDayWidth 'the approximate location of the day 

ITemp ■ lnt((IDay + IWeekOay - 1 ) / 7) 



IDoseTop ■ (ITemp • IDayHeight) + 625 this number factors in the title bar 

IDoseTop = IDoseTop + IDayHeight - 75 - frmDosingCalendar.shapeDose(0).Height - frm DosingCalendar.shape Dose (0) Height - 
V frmDosingCalendar.shapeOose(0).Height 'draw in bottom of day 

frmOosingCalendar.shapeDoseMissed(gtDosesMissedCreated)Top * IDoseTop 

On Error Go To 0 
End Sub 



Public Sub UpdateCalendar() 

The month or year fo the calendar has changed, so we need to plot the events for 
the current month and year being shown . 

Static bProcedurelnProgress As Boolean 
If bProcedurelnProgress Then Exit Sub 
bProcedurelnProgress = True 

Dim iObjectDiameter As Integer 

'Show custom labels from config file if there were any 

If Len(gsCustomLblPatientLastName) > 0 Then frmDosingCalendar.Labell » gsCustomLblPatientLastName 
frmDosingCalendarJbiPatientName = " " ♦ PAT_DATA.sPatientLastName + N , " ♦ PAT_DATA.sPatientFirstName 

iObjectOiameter = frmDosingCalendar. Calendar. Width / 45 'resize the objects drawn on the calendar 

If iObjectDiameter > frmDosingCalendar.Calendar.Height /50 Then iObjectDiameter = frmDosingCalendar.Calendar.Height / 50 
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frmDosingCalendar.shapeOose(O). Width = iObject Diameter 
frmDosingCalendar.shapeDose<0).Height = i Object Diameter 
frmOosingCalendar.shapeDoseNonComply(0).Width = iObjectDiameter 
frmDosingCalendar.shapeDoseNonCompiy(0).Heignt = iObjectDiameter 
frmOosingCalendar.shapeDoseWissed(0).Width = iObjectDiameter 
frmDosingCalendar.shapeDoseMtssed(0).Height ■ iObjectDiameter 
' frmDostngCalenaar. snaceDoseSizeChange(C>. Wfdth - iObjectDiameter 
frmOosingCaienaar.shaceDaseSizeChanga(0).Heignt - tCbjectDiarr.eter 

DrawAJICompliedDosesTaken 
DrawAIINonCompliedDosesTaken 
DrawAIIDosesMissed 
DrawAilDoseSize Changes 

UpdateZoomBox 

bProcedurelnProgress = False 
End Sub 



Public Sub RemoveAHObjects() 

'Remove Hi objects frsm calendar 
RemoveCompliedDosesTaken 
RemoveDosesMissed 
Co Events 
End Sub 
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Attribute VB GlobalNameSpace * False 
Attribute VB_Creatable = False 
Attribute VB_Predeciaredld = True 
Attribute VB_Exposed = False 
Option Explicit 



Private Sub CommTimer_Timer() 

gb Com m Timer Expired = True 
CommTimer.Enabled = False 
End Sub 



Private Sub FaxMan1_ConfigurationDone() 
Dim i As integer 

frmOptions.MousePointer = vbDefault 
frmOptions.btnConfrgureFax. Enabled = True 
SetFaxDeviceLabel 
End Sub 



E 

E 
E 
E 



Private Sub FaxMan1_FaxStatus(Device As Integer, Status As Integer) 
Beep 

If gcFax.Status(Devtce) = "Initializing Modem" Or gcFax.Status(Device) = "Answering" Then 

frmFaxStatus.Show 
Etself gcFax.Status(Device) = "Port Closed" Then 

Unload frm Fax Status 
End If 

frmFaxStatusJblRemotelD * gcFax.StatusRemotelD(Device) 

If gcFax.StatusConnectSpeed(Device) > 0 Then 
^frmFaxStatus.lblSpeed = gcFax.StatusConnectSpeed(Devtce) 

frmFaxStatus.IblSpeed = 
End If 

If gcFax.StatusPages(Device) Then 

Else nFaXStatUSlblPa9e = CStr(gcFax - SlatusPa 9 esSent ( Devlce )) + " of " + Str$(gcFax.StatusPages(Device)) 

frmFaxStatus.iblPage = CStr(gcFax.StatusPagesSent(Device)) 
End Jf 

If gcFax.StatusPercentage(Device) > 0 Then 

^frmFaxStatus.lblPercent = CStr(gcFax.StatusPercentage(Device)) + " % Complete" 

frmFaxStatus.lblPercent = ~* 
End If 



frmFaxStatus.lblStatus = gcFax.Status(Device) 
frmFaxStatus.lblDestination =* gcFax.StatusDestination(Device) 
frmFaxStatus.IblFaxNumber = gcFax.StatusNumber(Device) 
End Sub ' 



?2 
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Private Sub MDIForm_Load() 

On Error Resume Next 

Me. Left ■ CLng(GetlNISetting(gsApplniFileSpec, "Windows**, "Main Left", "1000")) 
Me.Top = CLng(GetINlSetting(gsApplntFileSpec, "Windows", "Main Top", "1000")) 
Me.Wldth = CLng(GetlNISetting(gsApplniFileSpec f "Windows", "Main Width", "6500")) 
Me.Height = CLng{GetlNISetting(gsAppiniFileSpec, "Windows", "Main Height", "6500")) 
Me.WmdowState = CLng(GetlN!Setting(gsApcintFiieSDsc. "Windows'. "Main WincowState'. "0")) 
On Error GoTo 0 
End Sub 



Private Sub MDIForm_Unioad(Cancel As Integer) 
Dim r As Integer 

r = ValidatePatientDataSaved 'make sura any device data has first been saved 
Save Window positions 
_ If Me.WmdowState <> vbMinimized Then 

SavelNISetting gsApplniFileSpec, "Windows", "Main Left", CStr(Me.Left) 
SavelNISetting gsApplniFileSpec, "Windows", "Main Top", CStr(Me.Top) 
SavelNISetting gsApplniFileSpec, "Windows", "Main Width", CStr(Me.Width) 
SavelNISetting gsApplniFileSpec, "Windows", "Main Height", CStr(Me. Height) 
SavelNISetting gsApplniFileSpec, "Windows", "Main WlndowState", CStr(Me.WlndowState) 
_ End If 

SaveProgramPreferences 
End Sub 



Private Sub mnuAccessWebSite_C!ick() 

'// the form is minimized then set it back to normal 
Call LogonToWebSite 
. If frmBrowser. WlndowState = vbMinimized Then 



frmBrowser. WlndowState = vbNonmal 
. End if 

frm Bro wser.ZOrder 
End Sub 



Private Sub mnuFaxConflgure_Click() 

giLatestOptionsTabSelected = 2 'display the fax tab once the dialog is opened 
frm Options. Show vbModal 
End Sub 



Private Sub mnuFaxSend_Ciick() 

frmFaxSend.Show 
End Sub 



Private Sub mnuFaxViewLogs_Click() 

frmFaxLog.Show 
End Sub 




— 
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_______ r 



Private Sub mnuFileProperties_Click() 

frmOptions.Show vbModaJ 
End Sub 



Private Sub mnuFileSave_CIick() 
Dim r As Integer 



E 



If PAT_DATA.sPatientDataFiieName = "" Then 

r = SaveDataToNewFile 
Else 

r = SavePatientData(PAT_DATA.sPatientDataFileName) 
End If 



If r = False Then 
Beep 

MsgBox "An error occurred while attempting to save the data file. It was not saved.", vbCritical, "File Not Saved" 
End If 
End Sub 



Private Sub mnuGenError_Click() 
MsgBox This is a temporary test error handler. When you click OK, a synthethic error (Divide by 0) will be generated. The same dialog 

V will bte shown when any error is generated. It generates a log file that provides valuable information for the developer. This will be 
W removed from the next build.", vblnformation, Test Error Handler 

Error 11 
End Sub 

Private Sub mnuHelpDeviceDiag_CIick() 
Dim sMSG, sReply As String 

sMSG a "Performing a device diagnostics test could cause loss of vital device information and should be done only with the assistance 

V of technical support." 

sMSG = sMSG + vbCrLf + vbCrLf + "Please contact our technical support department at 1-800-777-777? for a password and assistance 

' Display message, tfffe. and default value. 
sReply » InputBoxfsMSG, "Password Required") 
If LCaseS(sReply) = "h2o"Then frm Device Diagnostics. Show 
End Sub 



Private Sub mnuHelpT]ps_Cl!ck() 
frmTlp.Show 

'if the form is minimized then set it back to normal 

If IrmTip.WindowState = vbMinimized Then frmTip.vMndowState = vbNormal 
frmTip^Order 
End Sub 
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Private Sub mnuReadDeviceData_Click() 
frmReadDevice Data. Show 

'if the form is minimized then set it back to normal 

If frmReadDeviceData.WindowState a vbMinimized Then frmReadDeviceData.WindowState = vbNormal 
frmReadDevice Data.ZOrder 
End Sub 



Private Sub mnuSendDeviceData_Click() 
f rm Devicelnitialize . S how 

'if the term is minimized then ser tt hack to norma! 

If frmDevicelnitialize. WindowState = vbMinimized Then frm Device Initialize. WindowState = vbNormal 
frm Device initialize. 2 Order 



Private Sub mnuViewAIIPatients_Click() 

frmAJI Patients. S ho w 
the form is minimized then set it back :o normal 

If frmAllPatients. WindowState = vbMinimized Then frm A II Patients. WindowState * vbNormal 

frmAHPatients.ZOrder 
End Sub 



Private Sub mnuHelpAbout_CHck() 

frmAbout.Show vbModai, Me 
End Sub 



Private Sub mnuViewCalendar_CIick{) 

frm Do sing Calendar. Show 

'if the form is minimized then set it back to normal 

If frmDosingCalendar. WindowState = vbMinimized Then frm DosingCalendar. WindowState = vbNormal 
frmDosingCalenda reorder 
End Sub 



Private Sub mnuViewExplorer_Click() 

mnuViewExplorer. Checked = Not mnu VlewExplorer.Checked 'toggle the state of the check box 
SSUstBarl. Visible = mnuViewExplorer. Checked 
End Sub 



Private Sub mnuViewOptions_Click() 

frmOptions.Show vbModai, Me 
End Sub 



End Sub 
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Private Sub mnuViewPatientDosingReport_Click() 

frmPatlentDosingReport.Show 

'if the form is minimized then set it back to normal 

tf frmPatientOosingReport.WindowState = vbMinimized Then frmPatientDosingReport.VvindowState = vbNormal 
frmPatientDosingReport.ZOrder 
End Sub 



Private Sub mnuViewPatientSumrnary_Click() 
frmPatientSummary.Show 

'if the form is minimi zed then set;t beck to norma! 

If frmPatientSummary.WindowState = vbMinimized Then frmPatientSummary.vVindowState = vbNormal 
frmPatientSummary.ZOrder 
End Sub 



Private Sub mnuvlewStatusBar_Click() 

I If mnuViewStatusSar.Checked "Then 

sbStatusBar. visible = False 
mnuViewStatusBar.Checked = False 

Else 

sbStatusBar. Visible = True 

mnu Vie wStatusBar, Checked ■ True 

I End If 

End Sub 



Private Sub mnuViewToolbar_CIick() 

. If mnuvlewToolbar. Checked Then 

tbToolBar. visible ■ False 
mnuVlewTooJbar.Checked = False 

Else 

tbToolBar. Visible = True 
mnuViewToolbar.Checked = True 

I End If 

End Sub 



Private Sub SSListBart JJstltemClick(ByVal ItemClicked As Listbar.SSListltem) 

I Select Case SSListBart .CurrentGroupKey 

Case "Patient Data" 'patient data 

I Select Case ItemClicked. Key 

Case "Event Calendar" 'calendar 

mnuViewCalendar_Click 

Case "Summary" 'summary 

mnuViewPatientSummary_Click 

Case "Dosing Information" 'grid 

mnuViewPatientDosingReport_Click 

Case "All Patients" 'all patients 

mnuViewA!IPatients_Click 

End Select 




Case "Device" 'device data 
Select Case ItemClicked.Key 
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Case "Retrieve Data" reac Jevics cat a 

mnuReadDeviceData_Clrck 

Case "Program Device" 'send to DosPtc Device 

mnuSendDeviceData_Ciick 

— End Select 

- End Select 
End Sub 



Private Sub tbToolBar_ButtonCIick(ByVa! Button As ComctiLib.Button) 

I Select Case Button.Key 

Case "Open" 

mnuFileOpen_Click 

Case "Save" 

mnuFileSave_Click 

Case "Print" 

mnuFilePrint_Click 

Case -Cut" 

'mnuEditCutJZlick 

Case "Copy" 

'mnuEditCopy__ Click 

Ciipboard.Ciear " — — 

If TypeOf ActiveForm.AcsveControl Is TextBox Then 
Select Case Index 
Case 0 ' Cut. 

Copy selected text to Clipboard. 



Clipboard. SetText A ctiverorm. Active Control. SelText 
Delete selected text 

ActiveForm. ActiveControl. SelText = " 
Case 1 ' Copy. 

Copy selected text to Clipboard. 

Clipboard. SetText ActiveForm ActiveControl SelText 
Case 2 'Paste. 

Put Clipboard text in text box. 

ActiveForm. ActiveControl. SelText = Clipboard GetTextO 
Case 3 'Delete. 
Delete selected text. 
ActiveForm. ActiveControl. SelText = ~ 



